Mensch das müsste eigentlich laufen aber dauernd kommen Fehler warnungen... boah
Delphi-Quellcode:
type
TForm1 = class(TForm)
procedure SpielSpeichern1Click(Sender: TObject);
procedure dateiOeffnen;
procedure dateiSpeichern;
procedure dateiErstellen;
private
{ Private declarations }
public
{ Public declarations }
end;
//------------------Speichern und Oeffnen---------------------------------------
procedure TForm1.SpielSpeichern1Click(Sender: TObject);
begin
if savedialog1.Execute = true then
begin
verz := opendialog1.Filename;
try dateiOeffnen except showmessage('Datei nicht vohanden') end;
end;
procedure TForm1.dateiOeffnen;
begin
AssignFile(datei, verz);
reset(datei);
read(datei, adr);
CloseFile(datei);
end;
end.
Hier bin ich grade dabei meinem Programm eine Speicher und Öffnen Procedure zu schreiben, wie das läuft ist mir auch bewusst. Ich frage mich nur warum er oben in der Deklaration probleme macht...
Vielen Dank für eure Beiträge.