problem sa ovim kodom u borland delphi7

[gogi100]

U jednoj knjizi mislim da je delphi 4 nasao sam sledeci kod.Moze li mi ko racu u cemu je problem jer borland delphi nece da ga kompajlira.Prijavljuje gresku ´unknow directive Edit1´ ja sam boldovao tekst na koji mi pokazuje gresku.
¨
unit main;



interface



uses

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

Dialogs, StdCtrls;



type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure WriteAll(Edit7String: String);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.WriteAll(Edit7String: String);

Edit1.Text := Edit7String;

Edit2Text := Edit7String;

Edit3Text := Edit7String;

Edit4Text := Edit7String;

Edit5Text := Edit7String;

Edit6Text := Edit7String;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

WriteAll(Edit7.Text);

end;



end.
¨

Hvala

 

[voodoo_]

Fali ti begin ispred te linije.

 

[apocalypse]

I fale ti tacke kod sledecih Edit2, Edit3, .., Edit6.Text ...

 

[=Ivan=]

Tu fali sto-sta , ali ja bi dodao da mu fale i navodnici , Posto Edit7string ne postoji.

Edit1.Text := "Edit7string"; { moze mada nema bas smisla ili ako definises Edit7string kao string varijablu i napunis sa nekim stringom. }

Ti si verovatno hteo
Edit1.Text := Edit7.text;

 

[voodoo_]

Ne ne, izgleda da je hteo Edit7String pošto je WriteAll izgleda neka custom procedura kojoj prosleđuje nekakav string...

 

[silverglider]

Aj' pogledajte jos jednom dobro to oko stringova; primer je toliko banalan da je sramota uopste diskutovati da li Edit7String postoji.

 

[voodoo_]

Pa naravno da je banalan, vidi se iz aviona šta ta funkcija radi... obična funkcija napravljena od strane korisnika koju će neko da pozove kao WriteAll("Pera") i postavi sve Edite na "Pera"...

 

[bogi_kv]

Slažem se sa Voodoo'om. Edit7String je promenljiva tipa string koji se prosledjuje funkciji i svim Edit se dodeljuje ta vrednost promenljive.
Fali begin na početku. I to je to. Bar koliko je vidim.