ok das hab ich jetzt zusammengekriegt
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
begin
savedialog1.InitialDir:=(Application.ExeName);
if SaveDialog1.Execute then begin
SaveFile(SaveDialog1.FileName,ExtractFilepath(SaveDialog1.FileName));
end;
end;
klappt jetzt eigentlich auch mit dem speichern
nun möchte ich aber die Datei auslesen und stoße immer wieder auf E/A Probleme
Hier mein Code:
Delphi-Quellcode:
if OpenDialog1.Execute then begin
AssignFile(Datei,ExtractFilePath(OpenDialog1.Filename)+OpenDialog1.filename);
end;
reset(Datei);
// Auslesen
repeat
Readln(Datei,Line);
case Line[1] of // Erkennung 1
'1':
.........
until eof(datei);
end;
Aber leider verursacht das reseten Probleme
//edit P.S.: wie krieg ich hin dass beim opendialog nur txt dateien angezeigt werden?
//edit2: Um genau zu sein ist es ein "EinOutError" oder so