Ĺadny brzuch
Witam. Napisałem prosty programw Delphi, który po wpisaniu napisu, naciśnięciu buttona, wyswietla ten napis.
Oto kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; MainMenu1: TMainMenu; Pomoc1: TMenuItem; Oczymto1: TMenuItem; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Oczymto1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin close; {Button zamykający aplikację} end; procedure TForm1.Button1Click(Sender: TObject); var tekst : string; {string - typ zmiennej: tekst } begin tekst := Edit1.Text; {Linijka, która powiadamia,że zmienna "tekst" jest pobierana z elementu typu "Text", o nazwie "Edit1"} ShowMessage(tekst); {Pokazuje okno dialogowe, ze zmienna o nazwie "tekst"} end; procedure TForm1.Oczymto1Click(Sender: TObject); begin Form2.ShowModal; {Pokazuje okno dialogowe o nazwie "Form2"} end; end.
Pytanie to; Jak zmusić ShowMessage, aby wyswietlił zmienną, wplecionią w tekst? NP.
http://img128.imageshack.us/img128/9464/okno6og.png
Gdzie "to wpisałem " jest zmienną wpisaną w Edit1.
Pozdrawiam
Użytkownik bartek_kawa edytował ten post 17 kwiecień 2006, 19:56
ShowMessage('Wpisales: "' + tekst + '".');
PS. Fajne komentarze w kodzie :lol:
Nie smiej się! To mój pierwszy, calkowicie zrobiony przeze mnie program :P
Nie smiej się! To mój pierwszy, calkowicie zrobiony przeze mnie program :P
Tak, dokładnie o to :D Dzięki.
Gratuluje pierwszego programu.
Polecam zamiast close uzyc Application.Terminate; ^_^
A jaka jest różnica?
A jaka jest różnica?
Wg mnie powinno się raczej używać właśnie Close; zamiast Application.Terminate;. Close i tak wywoła Terminate, a można w metodzie OnClose dać dodatkowe rzeczy związane z zamykaniem programu, np. zapis konfiguracji :)
Terminate is called automatically on a WM_QUIT message and when the main form closes.
Użytkownik Kokoszek edytował ten post 18 kwiecień 2006, 08:03
Czyli jednak lepszy jest close;
eh.. kazdy lubi uzyc cos innego.. ;)
to moze zdefiniowac jeszcze cos zamykac.. tak na wszelki wypadek.. np. Form1.Close;.. ba czasami przed poleceniami daje sie petle z odwolaniami np. do formy2... i jak dasz samo close; to zamknie ta druga ;)
a w onClose polecam dodac linijke Action:=caFree; ^_^ odpowiadajaca za wyczyszczenie formy z pamieci ;)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Oto kod:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; MainMenu1: TMainMenu; Pomoc1: TMenuItem; Oczymto1: TMenuItem; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Oczymto1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin close; {Button zamykający aplikację} end; procedure TForm1.Button1Click(Sender: TObject); var tekst : string; {string - typ zmiennej: tekst } begin tekst := Edit1.Text; {Linijka, która powiadamia,że zmienna "tekst" jest pobierana z elementu typu "Text", o nazwie "Edit1"} ShowMessage(tekst); {Pokazuje okno dialogowe, ze zmienna o nazwie "tekst"} end; procedure TForm1.Oczymto1Click(Sender: TObject); begin Form2.ShowModal; {Pokazuje okno dialogowe o nazwie "Form2"} end; end.
Pytanie to; Jak zmusić ShowMessage, aby wyswietlił zmienną, wplecionią w tekst? NP.
http://img128.imageshack.us/img128/9464/okno6og.png
Gdzie "to wpisałem " jest zmienną wpisaną w Edit1.
Pozdrawiam
Użytkownik bartek_kawa edytował ten post 17 kwiecień 2006, 19:56
ShowMessage('Wpisales: "' + tekst + '".');
PS. Fajne komentarze w kodzie :lol:
Nie smiej się! To mój pierwszy, calkowicie zrobiony przeze mnie program :P
Nie smiej się! To mój pierwszy, calkowicie zrobiony przeze mnie program :P
Tak, dokładnie o to :D Dzięki.
Gratuluje pierwszego programu.
Polecam zamiast close uzyc Application.Terminate; ^_^
A jaka jest różnica?
A jaka jest różnica?
Wg mnie powinno się raczej używać właśnie Close; zamiast Application.Terminate;. Close i tak wywoła Terminate, a można w metodzie OnClose dać dodatkowe rzeczy związane z zamykaniem programu, np. zapis konfiguracji :)
Terminate is called automatically on a WM_QUIT message and when the main form closes.
Użytkownik Kokoszek edytował ten post 18 kwiecień 2006, 08:03
Czyli jednak lepszy jest close;
eh.. kazdy lubi uzyc cos innego.. ;)
to moze zdefiniowac jeszcze cos zamykac.. tak na wszelki wypadek.. np. Form1.Close;.. ba czasami przed poleceniami daje sie petle z odwolaniami np. do formy2... i jak dasz samo close; to zamknie ta druga ;)
a w onClose polecam dodac linijke Action:=caFree; ^_^ odpowiadajaca za wyczyszczenie formy z pamieci ;)