edit1 text

[Delphi] - Podliczanie danych ze StringGrida do Edita

Pokazuje się błąd, że: Incompatible types 'string' and 'integer' Edit1.Text:=Inttostr(Edit1.Text+1) można tak Edit1.Text:=Edit1.Text+'1'; albo tak Edit1.Text:=Edit1.Text+Inttostr(1);

[delphi] [Delphi] Jak wyodrębnić cyfry z ciągu znaków w Edit1 do Edit2?

procedure TForm1.Button1Click(Sender: TObject); var x : word; begin Edit2.text:=''; if length(Edit1.text)>0 then for x:=1 to length(Edit1.text) do if Edit1.Text[x] in ['0','1','2','3','4','5','6','7','8'... then Edit2.text:=Edit2.text+Edit1.Text ... end;

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Borland C++ Builder - jak przekazać tekst z pola Edit do zmiennej?

jeśli zmienna ma być int to tak Zmienna = StrToInt(Edit1->Text); jeśli string Zmienna = (Edit1->Text);

Dlaczego wykres y=3x-2 w Borland C++ Builder przecina środek układu?

To by się zgadzało. Pomnóż wszystko np. razy 10 (pikseli), wtedy powinno być wszystko bardziej czytelne, bo w tej chwili u Ciebie 1 piksel to 1, a powinno być trochę więcej, np. 10 pikseli to 1. Sprawdź to [syntax=cpp]PaintBox1->Canvas->MoveTo(30...

Delphi: Jak zablokować dodanie pustego tekstu z Edit do ListBox i wyświetlić komunikat?

Minuta pisania: [syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text = '' then begin showmessage('Nic nie wpisałeś!'); end else listbox1.Items.Add(edit1.text); end; [/syntax]

Delphi - Wyslanie z edita do innego programu ciągu liczb

SendKeys(Pchar(Edit1.Text),true) ;

[C++] Zdarzenie MouseDown w C++ Builder i animacje.

1. po pierwsze zawsze radze popatrzeć do innych unitów: TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble); MouseDown zwraca jeden parametr tego typu... prosty test: if (ssLeft in Shift) then Edit1.Text := 'lewy przycisk'; if (ssRight in Shift) then Edit1.Text := 'prawy przycisk'; if (ssMiddle in Shift) then Edit1.text...

Delphi: Błąd przy wyświetlaniu wyniku w Label z użyciem zmiennych i pi

if Edit1.Text = '' then ShowMessage('nie podałeś parametru') ;

[Delphi]+PLC,komponent działa tylko w obrębie jednej formy

Kiedy masz na myśli komunikację... to mówisz np o tym ? procedure TForm2.Button4Click(Sender: TObject); //czytanie D0 var idata:integer; begin ActFXCPU1.ReadDeviceBlock('D0',1,ida... edit1.Text:=IntToStr(idata); end; Zamień tę procedurę na dwie inne : function TForm2.CzytanieDanych: String; //czytanie D0 var...

[DELPHI] Jak zaimplementować wyszukiwanie zdjęć w Delphi z folderu programu?

Image1.Picture.LoadFromFile(Edit1.Te...

Lazarus: Jak połączyć liczby w TEdit w kalkulatorze?

Wiem ze może to niedydaktyczne ale to może być tak [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var a : string; // zdefiniowanie zmiennej reprezentującej zawartość Edit1 b : integer; // zdefiniowanie liczby do obliczeń begin a := Edit1.Text ; // wczytanie do zmiennej Edit1.Text:=a+'1'; // dodanie 1 do zmiennej b := StrToInt(a); //...

Jak pobrać i zapisać tekst między komponentami Edit w Borland C++?

// Pobieram z Edit1 AnsiString zm = Edit1->Text; //Przypisuje do Edit2 Edit2->Text = zm; Kuniec ;)

Jak zapisać i odczytać plik z nazwą i danymi z pól Edit w Delphi?

Wystarczy poprawić na: assign(p,form1.edit1.text+'.txt')...

Delphi7: Jak skopiować plik z dynamiczną ścieżką z Edit1?

A jak wygląda funkcja CopyFile ??? PAnsiChar + PAnsiChar + Bool zgadza się ? więc poprawnie to powinno wyglądać tak: copyfile(Pchar('nazwapliku.exe'&...

Delphi - błąd kompilacji przy dzieleniu wartości w Edit4.Text

Jako jeden z tych dwóch pozostałych na świecie programistów Delphi, dorzucę swoje dwa grosze. Błąd jaki otrzymałeś mówi dość wyraźnie: ta funkcja 'tu wstaw nazwę funkcji' nie może być wywołana z tymi parametrami. [syntax=delphi]wynik:=inttostr( (strtoint(edit1.text) - strtoint(edit3.text)) / strtoint(edit2.text) );[/syntax] W tym przypadku, próbujesz...

[DELPHI] Jak naprawić błąd ponownego połączenia Lazarus z bazą Firebird?

Zastosuj coś takiego : [syntax=sql]SELECT * FROM '+Combobox1.Text+' Where UPPER('+Combobox2.Text+') LIKE UPPER("%'+Edit1.text+'%")[/syntax] Albo jakąś wariację.

[Delphi] Delphi i SQLConnection – jak połączyć się z bazą LimeSurvey na zdalnym serwerze?

Ponieważ wszystkie parametry to zwyczajne TStrings, możesz w momencie deklaracji zrobić np. coś takiego: Connection.Params.Append('Database='... Gdzie Edit1 będzie zawierał nazwę twojej bazy danych. Itd. Itp. :)

[Delphi] Jak zablokować button1, gdy edity są puste?

Ale kombinujesz strasznie, dodatkowo nie da się tego czytać bez wcięć. [syntax=delphi] Button1.Enabled := (Length(Edit1.Text) > 0) and (Length(Edit2.Text) > 0);[/syntax] Pod oba Edity podepnij to samo zdarzenie.

Delphi 2010 - Wyjaśnienie pewnych linijek w programie

"wynik:= prostokat.tworz(StrToInt(Edit1.Text),Str... Ta linia tworzy klasę 'prostokat' pobierając dane z pól edycyjnych Edit1 i Edit2, zamieniając je z string na integer i zapisuje wskaźnik do utworzonej klasy w zmiennej 'wynik'.

Jak dodać funkcje do przycisków w Delphi 7 dla sterowania silnikiem krokowym?

Moze arnoldziq poprawi bo nieznam delphi(ja cbuilder 6) a pisze z komorki. TIniFile *ini=new TIniFile("setting.ini"); ini->WriteInt("silnik1","speed",StrToInt... delete ini;

Lazarus - jak poprawnie pobrać polskie litery ze stringa?

(at)mietekn , w lazarusie String jest tym samym co AnsiString, sam Utf8 również nie pomoże bo znaki mogą być zapisane w więcej niż jednym znaku. (at)Pocieszny , [syntax=delphi]ShowMessage(UTF8Copy(Edit...

[C++] Jak przekazać tekst z TEdit do tablicy char w C++ (BCB 6)?

czyli poprostu try { name = Edit1->Text; } Gdzie name jest zadeklarowane w klasie jako AnsiString. Dokładnie właśnie tak - i tylko tak. Napisałem - zostaw te char*! Piszesz w C, czy C++?

Jak w Delphi przekonwertować hex string na binarny string?

Witam, Na forum ten temat przewija się co chwilę w różnych kontekstach. Wystarczyło poszukać. Ale skoro się nie udało, to jeszcze raz: Np: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure HexToDec(Sender:...

Jak wyszukać i wyświetlić linię z Memo1 w Delphi po numerze w Edit1?

nie takie trudne :P procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to memo1.lines.count - 1 do begin if (pos(edit1.text, memo1.lines.strings[i]) > 0) then begin edit2.text := memo1.lines.strings[i]; break; end; end; end;

Jak zadeklarować wspólną zmienną string dla Form1 i Form2 w Delphi?

Zadeklaruj w form1 globalna zmienna np tak: var lancuch:string; A potem z drugiej odwoluj sie tak form1.lancuch:=edit1.text Warotsc z przykladowego pola edit z form2 zostanie przeniesiona do string zadeklarowanego w form1.

[Delphi] ZeosLib: brak wyników w Memo1 przy pobieraniu danych z MySQL

[syntax=delphi] _OsAdm.FDane.Haslo:=#39+Edit1.text+#39;[... Powinno działać :) To ciekawe że kompilator przełyka Ci apostrof i cudzysłów koło siebie w bezpośrednim zapisie błędu nie wyrzuca :?: Skrajne apostrofy w zapytaniu zmień na znaki w kodzie ASCI to zaoszczędzi dużo problemów

Kalkulator C++: Jak użyć zmiennych z buttonów i przeładować operatory?

przeciazanie operatorow jest w miare proste class Liczba { int liczba1; int liczba2; public: Liczba operator+(Liczba licz); }; Liczba Liczba::operator*(Liczba licz) { Liczba wynik; wynik.liczba1=this->liczba1+licz.licz... wynik.liczba2=this->liczba2+licz.licz... return wynik; } wywolanie: Liczba...

Delphi: Wyciąganie wartości z zaznaczonego tekstu.

Możesz to sobie podpiąć pod jakie tam chcesz zdarzenie, np Memo OnChange. var s, s1, s2: AnsiString; begin s := Memo1.Text; s1 := Copy(s, Pos('val="', s) + 5, Length(s)); { 5 to długość stringu w Pos() } Delete(s1, Pos('"', s1), Length(s1)); s2 := Copy(s,...

[Delphi] Delphi – jak narysować wykres liniowy: oś X czas, oś Y wartość z Edit (0-255)

Hmm, to chyba za daleko wyszedłem z domysłami. Możesz położyć Timer i w zdarzeniu OnTimer wrzucić taki kod, który będzie będzie pobierał to co jest wpisane w Edit1 i dokładał do wykresu: [syntax=delphi]procedure TForm1.Timer1Timer(Sender: TObject); begin Chart1.Series[0].Add(StrToFloat(Edit1.Te... end;[/syntax]

Delphi 2.0 - Jak dodać procedurę dzielenia w kalkulatorze?

procedure TForm1.Button4Click(Sender: TObject); var x:Real; y,z:Real; begin x:=strtoint(edit1.text); y:=strtoint(edit2.text); z:=x/y; edit3.text:=floattostr(x)+'/... end; Problem leżał w typach zmiennych. Nie można dzielić za pomocą / liczb całkowitych....

C++ Builder - Różne sposoby deklarowania i odczytu tablic...

Nie jest logiczne w delphi wygląda to trochę inaczej ... A spróbuj odwoływać się w taki sposób: Edit1->Text=TreeView1->Items->I... gdzie Item[1] to root a Item[0] to dziecko. Dla [1,0] powinno być 'dziecko1' Dla [1,3] powinien być błąd tak samo dla [0,2] i [0,3] Narazie nie mam jak sprawdzić, ale pod...

Zadanko w Delphi. Zwracanie łańcucha znaków wspak.

procedure TForm1.Button1Click(Sender: TObject); var ciag: string; I: integer; begin ciag := Edit1.Text; //Pobranie tekstu z pola edycyjnego Label1.caption := ''; //Czyszczenie labela For I := length(ciag) downto 1 do //Od długości tekstu w dół do 1 znaku Label1.Caption := Label1.Caption + ciag[I];...

Borland c++ Builder 6.0 konwertowanie liczb na system 2,8,16

int liczba=StrToInt(Edit1->Text); char bufor_dwojek[10]; char bufor_osemek[10]; char bufor_szesnastek[10]; itoa(liczba,bufor_dwojek,2); itoa(liczba,bufor_osemek,8); itoa(liczba,bufor_szesnastek,16)... Label1->Caption="0x"+UpperC... Label2->Caption="0x"+UpperC...

Delphi7 i InterBase - login i hasło porównywane z wpisem w InterBase

Piszesz zapytanie w SQL, następnie je otwierasz (Open) i sprawdzasz wynik, np tak: [syntax=Delphi] with IBQuery1 do begin SQL.Add('SELECT haslo'); SQL.Add('FROM tabela'); SQL.Add('WHERE login = :login'); ParamByName('login').AsString := Edit1.Text; Open; if Edit2.Text = FieldByName('haslo').AsString then Application.MessageBox('Logowanie ok', 'Logowanie',...

[Delphi] Jak poprawnie zmienić nazwę pliku z użyciem Edit1.Text?

Dzisiaj proste pytanie. Co zrobic w delphi, jaka komende uzyc aby zmienic nazwe pliku pobierajac tekst z edita probowalem komenda Rename(Plik, Edit1.Text + '.jpg'); ale komenda ta cos nie dziala poniewaz po skompilowaniu pojawia sie blad co do tej wlasnie procedury. Prosze o pomoc.

[DELPHI] Jak poprawnie odczytać dane z pliku .INI?

słyszałeś o else ? var INI : TINIFile; begin if not FileExists('System.ini') then // gdy nie ma to "zapisz" begin INI := TINIFile.Create(ExtractFilePath(... + 'System.ini'); INI.WriteString('Pozycja1', 'Pozycja2', 'abc'); INI.Free; end else if FileExists('System.ini') then //...

Błąd w programie Pascal - poprawna składnia dla polecenia write

Szczerze mówiąc czy się da exe zrobić to nie wiem ale zrobiłem to w delphi W załączniku jest plik project.exe jest to wersja okienkowa bo pascala nie trawię :D A tak to jest zrobione w Delphi Oczywiście operacje na liczbach całkowitych :) [syntax=delphi]var a,b,p : Integer; begin a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); p:=(a*b); Edit3.Text:=IntToStr(p);...

Komendy delphi do sterownia silnika krokowego przez lpt

[syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var SleepTime :dword ; var Steps :dword ; var s :dword ; begin if ZLIOStarted then Label1.Caption := 'Sterownik załadowany poprawnie.' else Label1.Caption := 'Nie można załadować sterownika.'; SleepTime:=StrToIntDef(Edit1.Text,1000); Steps:=StrToIntDef(Edit2.Text,1); for s:=0 to Steps do...

Delphi - Operację na kwotach z przecinkami, obliczanie %

zamień sobie początek procedury Button2Click na var cena:real; sztuki:integer; wynik:real; rabat:real; rabatwynik:real; begin cena:=strtofloat(edit1.Text)... sztuki:=strtoint(edit2.Text)... rabat:=strtofloat(edit3.Text)... wynik:=cena*sztuki; problem leżał w tym że do zmiennej typu integer chciałeś...

Błędy w kodzie kalkulatora Delphi - jak je naprawić?

Mam problem z programem w pewnym momencie wyrzuca mi problem którego nie rozumiem. Pomoże mi ktoś? [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5:...

Działania na liczbach w systemie 16-stkowym (Delphi)??

dodawanie odejmowanie mnożenie dzielenie moduł itp wszystkie działania są takie same we wszystkich systemach liczbowych.. na komputerze pojawiają się nam cyferki dziesiętne gdyż takiego syst. uczyliśmy się w szkole.. na komputerze wszystkie operacje są wykonywane w kodzie dwójkowym(binarnym) a wyniki są takie same i w dziesiętnym.. przykładowy przykład:...

[Delphi] Nie mogę wykorzystać Hgg w wierszu poleceń ?

no to nie dziwne że wywala ci taki błąd skoro napisałeś tak: klasa.Number := 'XXXXXX'; (rozumiem że := zapomniałeś tu tylko wkleić) a powinieneś napisać tak: klasa.Number := 123456; przecież jeśli coś piszesz w apostrofach 'XXX' to delphi traktuje to jako string (łańcuch tekstowy) a tu numer trzeba podać w postaci liczby! gdybyś miał formatkę i na niej...

Komponent do pobierania danych float w C++ Builder - alternatywy dla Edit1->Text

Witam,jest jakiś komponent w Builderze do pobierania danych liczbowych coś jak w rodzju (napis=Edit1->text) tylko dla liczb zmiennoprzecinkowych float.

Jutro kolokwium z informatyki. Proszę o pomoc. Delphi

Zad. 1. (Przykład dla kilku kolorów. Można rozbudować.) procedure TForm1.Button1Click(Sender: TObject); begin If Edit1.Text='czerwony' Then Form1.Color:=ClRed; If Edit1.Text='niebieski' Then Form1.Color:=ClBlue; If Edit1.Text='zielony' Then Form1.Color:=ClGreen; If Edit1.Text='żółty' Then Form1.Color:=ClYellow; If Edit1.Text='czarny'...

Jak uaktualnić komponenty w trakcie pętli w C++ Builder?

Oczywiście. I z tego, co pamiętam buidera niewiele się różni od tego samego w delpji. Spróbuj np: Edit1->Text="blebleble" Albo Edit1.Text="blebleble"

Jak dodać kolejne litery w Delphi w instrukcji case?

Nie bardzo rozumiem problem?... może o to?: case 'A': Edit1.Text := Edit1.Text + ' ' + '.-'; ? Jeśli nie o to, to spróbuj porządnie sformułować swoje pytanie.

[C++ Bulider XE] Jak pobrać wartość z kontrolki TEdit w C++ Builder XE?

Jeśli już to: [syntax=cpp] String s=Edit1->Text; [/syntax] lub [syntax=cpp] AnsiString s=Edit1->Text; [/syntax]

[Pascal->Delphi] Permutacje w Pascalu chcę przełożyć na Delphi

1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...

Jak obsłużyć dzielenie przez zero w kalkulatorze Delphi?

Mam nadzieje że pomoże [syntax=delphi]unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Button16: TButton; Button17:...

Pascal programowanie obiektowe - Program podający informacje o przedmiocie

Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...

Delphi 7: Błąd w instrukcji if przy tworzeniu kalkulatora

Witam. Musze zrobic kalkulator w programie delphi 7.Nie wiem czemu oczywiscie wykrywa błąd w if. Button z wynikiem chce zeby dzialal tak , ze jak nacisne +,-,*,/ to w label1 zapisuje wartosci 1,2,3,4. I gdy naciskam button z '=' to kod jest taki if Label1.Caption:='1' then Edit1.Text:=FloatToStr(StrToFloat(Label2... + StrToFloat(Label3.Caption));...

Combobox - dlaczego po skompilowaniu nic mi nie pokazuje?

Bo musisz oprogramować ComboBox dla zdarzenia OnChange :) Ja nie mam w swoim C++ Builderze komponentu TChart bo mam wersje darmową i okrojoną, ale to przykładowy kod dla takie przypadku z Editem : void __fastcall TForm1::ComboBox1Change(TObj... *Sender) { if (ComboBox1->ItemIndex == 0){ Edit1->Text = "maks10";...

Automatyczne zaznaczanie tekstu i ustawienie kursora w TEdit w BCB 6

Moze tak Onclick edit1.text:=''; etit1.active:=true taki pseudkod, ale to moze to?

Funkcja clear() w Borland Builder - co zwraca i jak działa?

Działa if(Edit1->Text != "") { e = Edit1->Text.ToInt(); } Borland nie zna słowa "null" :) Wielkie dzięki

Delphi: Jak przypisać TMainMenu do obliczania pól różnych figur?

To, co masz zakomentowane powinno wyglądać tak: procedure TForm1.Button1Click(Sender: TObject); var a,b:integer; begin if Shape1.Shape=stSquare then begin a:=StrToint(Edit1.Text); Panel1.Caption:=IntToStr(a*a)... end; if Shape1.Shape=stRectangle then begin a:=StrToint(Edit1.Text); b:=StrToint(Edit2.Text);...

Jak otworzyć port RS-232 w Delphi 6 za pomocą komponentu CPort?

repeat Readfile(ComHandle, dana, 1, Count, (at)OverLapped); edit1.text:=edit1.text+inttostr(dana); inc(lone); until lone=16; Witam, z tego co zauważyłem: 1) sprawdzaj czy jakiekolwiek dane zostały odebrane - nie wczytałem się jakie masz ustawione timeouty, ale możliwe jest że pętla zostanie wykonana 16razy zanim cokolwiek przyjdzie; innymi słowy inkrementuj...

Jak napisać program w Delphi zamieniający słowa na kod Morse'a?

Nie istnieje "nieobiektowe Delphi" ;) Delphi = Object Pascal. A co do kodu.. Eh... Ramy dam (z głowy): var i: Integer; begin Edit2.Text:=''; for i:=1 to Length(Edit1.Text) do case AnsiUpperCase(Edit1.Text[i]&... of 'A': with Edit2 do Text:=Text+'.- '; ... end; end;

Dodawanie znaków bez nowej linii w TRichEdit Delphi

Witam mam problem z komponentem TRichEdit w Delphi. Chcę dodawać kolejno pojedyncze znaki. Problem w tym, że zawsze uparty komponent musi dodać przejście do nowego wiersza. Mógłbym wprawdzie użyć Edit1.Text := Edit1.Text + JakaśZmienna ale wtedy traci się całe formatowanie. Próbowałem już wszystkiego np. Edit1.Lines.Add(coś); Edit1.Lines.Text := Edit1.Lines.Text...

Jak przetłumaczyć kod z Pascala na C++? (StringGrid, Currency)

Jak sama nazwa wskazuje CurrToStrF służy dla typu Currency nie dla float. Użycie CurrToStrF spowoduje domyślną konwersje na Currency czyli zaokrąglenie do 4-ch znaków po przecinku po czym, ponowna konwersja do double aby to sformatować i wywołać FormatFloat . Dla wyświetlenia typu float lub double właśnie polecam: [syntax=c]Edit1->Text = FormatFloat("#0.00",x);[/syntax]...

[Delphi] Jak filtrować tabelę po częściowym dopasowaniu słów?

Cześć, mam problem z filtrowaniem tabeli. Gdy wpiszę: Table1.Filtered:= false; Table1.Filter:='Autor='+QuotedStr(Edit1.... Table1.Filtered:= true; wszystko działa cacy :) ale gdy w jednym polu mam dwa słowa np 'slowo1 slowo2' to wyszuka mi tylko slowo1. Jak zrobić żeby po wpisaniu do Edit1 'slowo2' został wyszukany wiersz, który zawiera to słowo?...

Delphi - Jak obliczyć średnią z wartości z milisekundami w Edit?

Mam program który zlicza czas i pokazuje jego wartość w Editach z dodatkiem (czas)+milisekund:[syntax=pascal] edit1.text:=FloatToStr(czas)+' milisekund'; edit2.text:=FloatToStr(czas)+' milisekund'; itd. Chcę zrobić aby mi liczył średnią arytmetyczną. a:=StrToInt(edit1.Text); b:=StrToInt(edit2.Text);itd.[/syntax] Lecz wyskakuje błąd bo program nie może...

Lazarus - jak poprawnie wyszukiwać słowa z polskimi znakami w plikach?

[syntax=delphi]if Edit1.Text=Form1.sl[i] then ... [/syntax] natomiast sl to StringList wczytywany następująco: [syntax=delphi]sl.LoadFromFile(od.FileNa...

RS232 w C interfejs, wyjątek z biblioteki RICHED20.dll.

Wpisałem X = Edit1->Text i wyskoczyło mi, że nie można przypisać wartości typu AnsiString do chara, więc zrobiłem coś takiego: numer = Edit1->Text; X = numer.c_str(); lpFileName = "COM" + *X; Niestety poniosłem porażkę. Program oczywiście się kompiluje, ale przerwanie na mikrokontrolerze nie wskazuje na to, żeby cokolwiek było przsyłane.

C++ Builder 6 - Automatyczne klikanie i aktualizacja co 1 sek.

Odpowiedź na drugie pytanko: int i=0; do { i++ ; Sleep(1000); Edit1->Text=i; Edit1->Refresh(); Label1->Caption=i; Label1->Refresh(); } while(i<10);

Jak obliczyć bity kontrolne XOR dla danych na ATmega128?

Wykonaj operację Xor na wszystkich znakach (ich kodach ASCII), np: procedure TForm1.Button1Click(Sender: TObject); var Suma: integer; Petla: integer; begin Suma:=0; for Petla:=1 to Length(Edit1.Text) do Suma:=Suma xor Ord(Edit1.Text[Petla]); Label1.Caption:=IntToHex(Suma,2&... end; Pozdrawiam...

C++ Builder - Jak sprawdzić poprawność liczby w polu Edit?

Np.[syntax=cpp]try{ val=StrToInt(Edit1->Text); //Tu jest dobrze } catch(...){ ShowMessage("Blad"); }[/syntax]

Jak w Delphi wpisać wartości z TEdit do kolumn TTable w DBGrid?

Spróbuj tak: with Table1 do begin First; while not Eof do begin Edit; FieldByName('Pole_4').AsInteger&... FieldByName('Pole_5').AsInteger&... FieldByName('Pole_6').AsInteger&... //lub //FieldByName('Pole_4').AsString...

Darmowy program do C++ z licencją komercyjną podobny do C++ Builder

Witam. W c++ builder robiłem coś takiego przy konwersji tekstu na liczby. Takie coś mi pokazano na studiach i tak cały czas robiłem. double a,b,c; a=StrToFloat(Edit1->Text); b=StrToFloat(Edit1->Text); c=a+b; Edit3->text=FloatToStr(c); Jak to samo zrobić w C# oraz c++ w Visual studio i przy użyciu textBoxa? Próbowałem: double a,b,c; a=Convert.ToDouble(textBox1->Text);...

[Delphi] Formatowanie wyniku z ScrollBar1 w TEdit z dokładnością do 0.1V

lub funkcją edit1.text:=formatfloat('maska',zmienna)... gdzie maska = '0.0'

[c++] Jak zsumować liczby z ListBox w Turbo C++ i wyświetlić wynik w Edit2?

czesc, mam takie cos ListBox1->Items->Add(Edit1->... Edit1->Text.ToInt(); dodaje elementy (int) do listbox'a i chce aby w np Edit2 zsumowalo mi ich wartosci. tzn np mamy w Listbox'ie 1,2,3,4,5, suma ich ma wyjsc 15 : )

Borland C++ 6.0]Zaokrąglanie liczby do 2miejsca po przecinku

Następnym razem dodaj, że nie masz z programowaniem absolutnie żadnego doświadczenia, zadawaj konkretne pytania i pisz dokładnie czego oczekujesz i co już zrobiłeś. String tekst = FloatToStrF(StrToFloat(Edit1->... ffNumber, 7, 2); Label1->Caption = "Wynik = " + tekst; Albo nawet: Label1->Caption = "Wynik =...

Kod w Delphi do obsługi terminala RS232 - szukam przykładu

Witam. Ściągnij sobie komponent comport. Na forme wstaw 2 x memo, 1 x edit, 3 x buton i comport. 'button1 do łączenia i rozłączenia 'button2 do wysyłania 'button3 do ustawienia portu 'edit1 do wpisania tekstu jaki chcesz wysłać 'memo1 do odebrania tekstu 'memo2 do "pomocy" ustawione jako niewidoczne 'zdarzenie do ustawienia portu procedure TForm1.Button3Click(Sender:...

[Delphi] Jak wyświetlić kolor HEX w edit1 po wyborze w ColorDialog?

Na formie mam 4 komponenty: button1, edit1 edit2 i colordialog1 Po kliknięciu na button wywołuję colordialog1 colordialog1.Execute i wyskakuje mi okienko z wyborem koloru. Chciałbym teraz po kliknięciu na dany kolor, żeby jego wartość w HEX pojawiła się w edit1.text, a kolor w edit2 Znalazłem kawałek kodu do konwersji z RGB na HEX var result: string;...

[delphi] [Delphi] Jak ustawić Interval TTimer na sekundy z TEdit?

Witam, chyba tak: Timer1.Interval := StrToInt(Edit1.Text)*1000; Pozdrawiam, Krzysztof.

delphi pojawienie się okienka po spełnieniu warunków

No więc robisz warunek typu [syntax=pascal]Edit4.Visible:=(Edit1.Tex... and (Edit2.Text<>'') ...[/syntax] I podpinasz go pod zdarzenie OnChange dla Editów 1-3

[C++] Komunikacja z mikrokontrolerem przez port COM w Builderze - jak zacząć?

Form1->Edit1->Text=IntToStr(zmienna_odb)... A nie lpiej zrobić tak: Buf_ODB = zmienna_odb; zmienna_odb => zapis do pliku, przelicazanie, wykresy itd Form1->Edit1->Text=IntToStr(zm... zapewnia nam to, że dane z bufora wejściowego zostają przejmowane bezpośrednio do zmiennej. Następnie danymi robimy co nam się podoba. Borykam się...

[C++] Kalkulator w Borland C++ Builder - sterowanie klawiszami nie działa

Witam! Muszę szybko ogarnąć to zadanie w konsoli w programie Borland C++ Builder. Napisz aplikacje kalkulator. Wymagania: - wszystkie cyfry wprowadzane za pomoca klawiszy, - wszystkie operacje wybierane klawiszami, - pole wyswietlajace wprowadzone dane nieaktywne (Edit), - operacje na liczbach rzeczywistych, - podstawowe operacje – dodawanie,...

pętla for lub inna pod delphi z wykorzystaniem danych z pol edit

Witam. Potrzebuję napisać pętlę, która będzie działała w taki sposób, że warunkiem zakończenia jest iloraz dwóch wartości z pól edit. Dodatkowo, jeśli ten iloraz jest ułamkiem to musi być zaokrąglony w górę. Np jeśli edit1 ma wpisane 7, a edit2 3, to iloraz jest 2. Czyli musi zaokrąglić do 3. Coś w stylu: Begin ilosc:= (floattostr(strtofloat(Form2.Edit2.Text)...

[Delphi] Delphi: Automatyczna zamiana znaków w pliku tekstowym z użyciem Replace i RichEdit

var Dlugosc, i: Integer; Znak: Char; zm: String; klucz:integer; begin klucz:=strtoint(edit1.Text); zm:= memo1.text; Dlugosc :=Length(memo1.text); for i :=1 to Dlugosc do begin znak :=zm[i]; znak :=Chr(Ord(znak) xor klucz); zm[i] :=Znak; end; memo2.text:=zm;...

[C++Builder] Kasowanie zawartości pliku,typy danych+bonus;)

char *A=Edit1->Text.c_str(); char B=A[0]; A to wskaźnik, b to pierwsza literka w tym stringu; W jakim formacie dostajesz tą ramkę ? pewnie w postaci wskaźnika char. Do każdej zmiennej dostaniesz się w sposób przedstawiony powyżej. PS. Poucz się trochę o wskaźnikach i tablicach

[C++, Builder] Tworzenie nowego rekordu w bazie danych

Zawsze w Builderze dodawałem nowy rekord w bazie w ten sposób - przykład: ClientDataSet1->Append(); ClientDataSet1->FieldValues["... = Edit1->Text; ClientDataSet1->Post();

[DELPHI] Problem z konwersją CurrToStr i StrToCurr

nie działa mi poprawnie konwersja: [syntax=delphi] var Liczba : Currency; Str : String; begin Liczba:=StrToCurr(Edit1.Text); // wystepuje blad jak uzyje znaku . lub , //i w druga strone tez jest problem end; [/syntax]

Jak załadować plik txt do Memo1 w Delphi Builder 7 z dynamiczną nazwą?

1. Nie ma czegoś takiego jak Delphi Builder 2. [syntax=Delphi]LoadFromFile('c:\dane\'+E... Polecam kurs elementarnych podstaw środowiska Delphi ;)

[Delphi] Delphi: Jak sprawdzić, czy tekst z TEdit występuje w zmiennej typu string?

Własność text ! Jeśli chcesz tylko zwieranie się sprawdzić, to tak jak pisałem: If Pos(edit1.text,' '+znaki)>0 then Application.MessageBox('Znaleziono!'...

[Delphi] Jak naprawić błąd niezgodności typów Boolean i Integer?

Witam ponownie !!! Przerobiłem ten program w ten sposób ; var a,b : integer; a := StrToInt(Edit1.Text)*1000*60; b := StrToInt(Edit2.Text)*1000; Form1.Hide; Timer1.Interval := (a); Timer1.Interval := (b); {tylko to działa} Timer1.Enabled := true; end; Działa z jednym mankamentem , działa tylko na Edit2 czyli Timer1.Interval := (b); Edit1 pomija . Próbowałem...

Delphi CreateThread – jak sprawdzić i zakończyć działający wątek?

hThread sobie wrzuc do zmiennych globalnych jesli jest tworzony tylko jeden watek w danym momencie.. i wtedy w dowolnym miejsci bedziesz mogl zrobic np. TerminateThread(hThread, 0); Aby w jakims miejscu poczekac na zamkniecie watku jest api WaitForSingleObject wiecej poczytaj na MSDN'ie. Ale widze ze piszesz to w Delphi a tam sa gotowe klasy dla Watkow...

[Delphi] Jak poprawić szyfrowanie tekstu w pętli z użyciem ASCII?

Edit5.Text := Edit5.Text + pojedynczyznak; Musisz najpierw wyzerować wartość edit1.text:='' . Teraz dodajesz do niego kolejne zaszyfrowane znaki. Możesz użyć jakiejś dodatkowej zmiennej tekstowej przechowującej tekst do zaszyfrowania.

C++ Builder: Jak dodać wpis na początku ListBox?

Teraz sie tak dla zabawy pobawiłem.. powstało mi coś takiego: /* powiekszenie listy o jeden element */ ListBox1->Items->Add("&qu... long int i; /* przesuniecie elementów w dół tz zwolnienie pierwszego elementu */ for (i=ListBox1->Items->Count-1;i&... ListBox1->Items->Strings[i]... = ListBox1->Items->Strings[i-1&#...

[Borland C++ Builder] problem z odbiorem danych na RS232

Już mam:) char liczba; char tablica[4]; ReadUart(tablica,3); liczba=tablica[0]; Edit1->Text = IntToStr(liczba); w taki sposób odbieram liczbę w formacie dec

Jak wyświetlić 25 zdjęć w Delphi po naciśnięciu przycisków?

No możesz zrobić sobie w ten sposób, że po wpisaniu nazwy zdjęcia np. w Edit1 i naciśnięciu buttona wyświetli ci się dane zdjęcie: procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.LoadFromFile('C:\... end; i w edit1 np. wpisujesz tylko "zdjecie1".

[delphi + sql] [Delphi + SQL] Problem z wyświetleniem SUM(CZASNEW) w FireBird 2.01

Witam Mam taki problem mianowicie chce zsumować pole CZASNEW, które jest typu integer i używam do tego takiego polecenia: with ADOQuery2, SQL do begin Close; Clear; Add('SELECT SUM(CZASNEW) FROM IMPORT'); Open; Edit1.Text := ADOQuery2.Fields[0].AsString; end; Według wszelkich prawideł powinno działać ale niestety tak nie...

Jak napisać program w Delphi bazując na źródle z Tpascala?

Algorytm to już jest, tylko interfejs użytkownika zamienić z DOS konsola na Windows GUI. Do tego wystarczy na delphi formularzu, przez kliknięcie myszką wprowadzić dwa elementy edycyjne z palety komponentów GUI, oraz dla wyniku funkcji etykiety Label. wtedy Edit1.Text:= IntToStr(n); // readln(n) oraz n:= StrRoInt(Edit1.Text); wtedy Edit2.Text:= IntToStr(k);...

Delphi - MSSQL 2012, ANYDAC - Zawieszanie zapisu przy wielu użytkownikach

baran_r - możesz zrezygnować. Do czytania, owszem, zostaw sobie dbgrida (przy czym najlepiej niech pracuje na transakcji z poziomem w stylu read commited, read only - nie wiem, jakie tam MSSQL ma). Ale na query (on scroll) zrób: [syntax=delphi]Edit1.Text := Query1.FieldByName('...').AsString[/synt... (jeszcze wydajniej i prosto można to zrobić z FireDAC)...

Jaki język programowania wybrać do sterowania serwami HS-322HD przez LPT?

Tak, można to zrobić w drugą stronę stronę Można(dla Edit1) do Events-> Onchange(jest to nie wygodne, bo po każdej zmianie w edit będzie prubował zmienić suwak, nawet po naciśnięcu backspace i liter), albo do Events->OnDblClick(po dwóch kliknięciach w suwak się przesunie) wstawić poniższy kod c = StrToInt(Edit1->Text); if (c <...

[C++] Zamiana pierwszej małej litery w stringu na dużą?

Dziekuje za wasze porady obecnie całość aplikacji wygląda następujaco: załącznik RAR http://przeklej.pl/plik/znaczki-rar-0001... Edit1->Text = Memo1->Lines->Text.Length()... ; AnsiString nap = Memo1->Lines->Text; nap = nap.Trim(); for(int i = 1 ; i<= nap.Length() ; i++) { if(int k = nap.LastDelimiter("...

C++ Builder TEdit - Wyrównanie tekstu do prawej i błędy kompilacji

To prawda programowanie obiektowe to nie najmocniejsza moja strona, a co do tematu to w podanym linku jest chyba dalej informacja o tworzeniu nowego komponentu jednak wystarczy mi użycie TMemo. i Odwołania Edit1->Text = ... zamienie na Memo1->Lines->Strings[1] = ... Dzięki za podpowiedź.

Błędy kompilacji w C++ Builder 6 przy programowaniu RS-232 z książki

Jak usunąłeś funkcje (np. OpenCommClick) z obiektu Form1 (definicje z unit1.h) to teraz, żeby się odwołać w tych funkcjach (nienależących do obiektu Form1) np. do obiektu Edit1 (będącego członkiem Form1 musisz dodać na początku "Form1->" czyli tak: "Form1-> Edit1->Text = ..." Nie wiem czy nie zakałapućkałem tego za bardzo :-)

[Delphi RAD] - Wysyłanie i odbieranie sms'ów pod Android

Dzień dobry, Próbuję sklecić program wg wzoru odnalezionego pod linkiem https://www.elektroda.pl/rtvforum/topic3... Niestety nie wiem, gdzie wpisać uprawnienia: <uses-permission android:name="android.permission.SEND_SM... /> Proszę o podpowiedź. [syntax=delphi]unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes,...

Delphi - Wyszukiwanie w pliku i wyświetlanie wartości

w tym wypadku na początku wiersza większe i mniejsze od szukanej o np. 100 Nigdy nie używałem Delphi :) Właśnie pobrałem Lazarusa (też go jeszcze nie używałem) i załączam uzyskany program. http://obrazki.elektroda.pl/8546723200_1... Już prawie zapomniałem jak to się pisało w Pascalu (sławne ":=" zamiast "="). Okropnie wielki ten program:...

[Visual Basic] Zamiana tekstu na liczbę i na odwrót

Tworzę dokument w Wordzie z Formantami, pewne elementy wpisywane w polach mają służyć do obliczeń i wynik wyświetlać się powinien w innych polach. Jak prawidłowo zapisać poniższą operację w Visual Basicu: [syntax=delphi]edit2.Text:=IntToStr(StrT... tak to wygląda w Delphi.