Używanie stałych i zmiennych w programie.

[Czarna Mamba]

Siema.To więc tak wczoraj sobie sciągłem Delphi 7 Enterprise Studio i porzyczyłem ksiązke
Kompetendium Programisty 7 Autor:Adam Boduch.Czytam to wszystko fajnie kapuje az dochodze do pod rozdziału "Używanie stałych i zmiennych w programie."(tutaj link do tego rozdzialu[e-book] http://4programmers.net/Delphi/Kompendium/Rozdział_2 <--skopiujcie ten link do przeglądarki bo coś ucieło ) Tutaj musze zastosować polecenie "ShowMessage" To więc tak wpisuje kod prawidlowo bez zadnych bugów ani żadnych błędów włanczam i tam zamiast okienka w ktorym mialo pisać "To jest tekst w okienku"(link do obrazka http://img230.imageshack.us/my.php?image=29hz1.jpg ) wyskakuje mi normalne szare okienko (link http://img204.imageshack.us/my.php?image=15bp2.jpg )Ale mówie ja przepisalem to tak jak jest w ksiązce i niedziala :whoeva: Niewiem co zrobilem żle,dopiero co zaczolem uczyć się języka DELPHI.Tutaj wklejam 2 kody które dzialaja na tej samej zasadzie lecz zamiast okienka z napisem "To jest tekst w okienku" wyskakuje szara ramka.Licze na szybką odpowiedz.Pozdrawiam
1.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



end.



program varConst;



uses Dialogs; // włączanie modułu do programu — tym zajmiemy się później



begin

  ShowMessage('To jest tekst w okienku!');

end.

2.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



end.



program varConst;



uses Dialogs; // włączanie modułu do programu — tym zajmiemy się później



const

  Stala1 = 'Oto jest stała...';



var

  Zmienna1 : String;



begin

  Zmienna1 := 'Tekst umieszczony w okienku!';

  ShowMessage(Zmienna1);

  ShowMessage(Stala1);

end.

 

[Mo4x]

Jezu, coś Ty zrobił?! =]
Inaczej to ma być...
Odpal Delphi i kliknij na górnym menu w "File", potem "New", następnie "Other...".
Zaznacz "Console Application" i kliknij na OK.
No i teraz masz tam już wygenerowany szablon programu:

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



begin

  { TODO -oUser -cConsole Main : Insert code here }

end.

Więc wstawiasz to ze swojego kodu i otrzymujesz:

program VarConst;



uses Dialogs;



const 

  Stala1 = 'Oto jest stała...'; 



var 

  Zmienna1 : String; 



begin 

  Zmienna1 := 'Tekst umieszczony w okienku!'; 

  ShowMessage(Zmienna1); 

  ShowMessage(Stala1); 

end.

Sory za to na górze, ale troche mnie rozśmieszyłeś tym kodem.
Życzę samych sukcesów w programowaniu, pozdrawiam.
Delphi Rlz! :mruga:

 

[D0han]

Mo4x, nawet mu nie wytlumaczyles co zle zrobil.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs; // tu masz te Dialogs



type

  TForm1 = class(TForm)

    Button1: TButton; // oznacza wstawionego buttona o nazwie 'Button1'

    procedure Button1Click(Sender: TObject); // deklaracja procedury, kazda procedura musi byc najpierw zadeklarowana

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



// end. // te end. oznacza koniec calego programu, musi byc na koncu



// program varConst;  // tego sie nie pisze w aplikacjach 'okiennych', tzn takich z forma



// uses Dialogs; // to sie dopisuje na gorze do reszty bibliotek





// kod zawsze musisz pod cos podpiac, np pod button1.click

procedure TForm1.Button1Click(Sender: TObject); // to jest wykonywane przy okreslonym zdarzeniu, w tym wypadku klikniecie buttona na formie



const

  Stala1 = 'Oto jest stała...';



var

  Zmienna1 : String;



begin

  Zmienna1 := 'Tekst umieszczony w okienku!';

  ShowMessage(Zmienna1);

  ShowMessage(Stala1);

//end. // najpierw nalezy zakonczyc procedure, a potem caly program

end; // zakonczenie procedury

end. // zakonczenie programu

Kod zostal przezemnie sprawdzony i skompilowany, wiec jest w 100% poprawny :]

 

[Czarna Mamba]

Wlasnie Mo4x wytlimaczyl mi co jest zle poprostu mialem to napisac w Aplikacji Konsolowej a nie normalniej ale ty Dohan tez mi pomogles

No i lecą to was REPUCIKI

 

[Mo4x]

Originally posted by D0han
Mo4x, nawet mu nie wytlumaczyles co zle zrobil.

Ten Twój kod też nie jest najlepszy, to nie miała być aplikacja z Formą.
Autor nie dawałby tego "program VarConst" itp. gdyby to miała być aplikacja okienkowa.
Więc mój kod jest poprawniejszy, tgz. Bardziej poprawny. =]
Ale to już nieważne...
Delphi... to jest naprawde ważne =]

 

[D0han]

Mam dwie ksiazki A. Boducha i nie widzialem jeszcze zeby byly przyklady aplikacji konsolowych wiec uznalem to za blad

Ale skoro tak to spoko ;p

//EDIT
Deja vu? http://forum.4programmers.net/viewtopic.php?id=93933
A tak przy okazji, coz za wymowny temat > http://forum.4programmers.net/viewtopic.php?id=93935