Dodajanje ukazov v menije (OpenDialog1, SaveDialog1)

Naloga: Dodati moram ukaze v menija OpenDialog1 in SaveDialog1...
POTEK:
1. Na obrazec vstavim komponente Main menu, OpenDialog1 in SaveDialog1.
2. V privzeti dogodek vpišem kodo(potek je za komponento OpenDialog1) ... Skupaj zgleda takole:

procedure TForm1.Open1Click(Sender: TObject);
var
Open : TForm2;
begin
If OpenDialog.Execute then begin
Open :=TForm2.Create(Self);
Open.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Open.Caption := ExtractFileName(OpenDialog1.FileName);
Open.Show;
end;

end.


PROBLEM: Ko pritisnem F9 (run), mi prevajalnik javi napako... Kurzor mi vrže sem:
var
Open : TForm2;

To je prepisano iz knjige katere se učim... Tipkarske napake NI, ker sm 10x pregledu, pa še en moj frend...

Kaj je narobe? Kje sm (no, kje so ga v knjigi zasral?) zasral? Kako to vi naredite? Kako pa naredite za SaveDialog1? (do sm še nism prišel, ampak vseeno)...

aja, pa še to... kje maš pa Form2? Nisi morda mislil na Form1?
(glede na to da uporabljaš kt. Create(self)? )

joj!

glej, ce ti zelis, da ti v OpenDialog1 da filename, katerega odpiras, moras dat OpenDialog1.Execute!

Sicer sintakso znam razbrat, tako da tega ni treba pisat; kaj je tform2 še napiši (Definicijo objekta, kje jo imaš?!)
glede na to da ustvariš Open : TForm2 moraš imeti nekje deklaracijo tega! (razreda TForm2)

@CHAOS
Peter HRIBAR: Spoznajmo Delphi (Od prvih ukazov do hekerskih zvijač)

Zakva?

Kopija napak:
[Error] Unit1.pas(73): Undeclared identifier: 'TForm2'
[Error] Unit1.pas(74): ';' expected but 'BEGIN' found
[Error] Unit1.pas(75): Undeclared identifier: 'OpenDialog'
[Error] Unit1.pas(76): 'THEN' expected but identifier 'Execute' found
[Error] Unit1.pas(77): Missing operator or semicolon
[Error] Unit1.pas(78): Missing operator or semicolon
[Error] Unit1.pas(79): Missing operator or semicolon
[Error] Unit1.pas(80): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Jst sm vse naredu kot je v knjigi pisal. Imam oprto TForm1 na kateri so komponente MainMenu, OpenDialog1 in SaveDialog1... Pritisnem na osnovnem oknu: File-Open in vpišem tole kodo:

procedure TForm1.Open1Click(Sender: TObject);
var
Open : TForm2
begin
If OpenDialog.Execute then
begin
Open :=TForm2.Create(Self);
Open.Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Open.Caption := ExtractFileName(OpenDialog1.FileName);
Open.Show;
end;
end;

end.

Napake so zgoraj...

@Gandalfar
To je na strani 163 zgoraj..

Tud če to dodam, mi še vedno javi napako ... Sm zdele ravnokar probu.. Tenks vseen...

Ja tisto (1) sm že dodal. Tenks vseeno...

Zdej sm rešil problem, da mi pri tej kodi ne dela napake:
var
Open : tform2;

Rešitev: unit2 sm dal pod 'uses'...

Zdej mi pa drugje javlja napako.. In sicer:

.
Open. Memo1. Lines. Loadfromfile(opendialog1. Filename); //kurzor se postavi za besedo memo1
.


Zdej pa v knjigi piše, da bomo v komponento memo1 iz odprte datoteke vstavili besedilo... V naslovno vrstico novega obrazca dodamo naslov datoteke in nazadnje prikažemo še obrazec...

To sm naredil a spet nč... Bom zdele še enkrat mal pogledu, pol se pa spet javm.