Hallo alle zusammen
Melde mich mal zurück.
Habe mich nun entschlossen meine Zahlen als Record und mit TFileStream zu speichern.
Aber auf welchem Weg ich das auch versuche, ich bekomme immer wieder eine
Exception-Fehlermeldung. Die Fehlermeldungen betrafen immer das die Datei nicht angelegt bzw. nicht geöffnet werden kann. Im unteren Beispiel bekam ich folgende Meldung:
"Im Projekt ProjectLOTTO.exe ist eine
Exception der Klasse EFOpenError aufgetreten. Meldung: 'Datei Ziehungen.dat kann nicht geöffnet werden'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."
Kann mir einer verraten wo ich den Fehler hab ? ( hab ja gerade mit lernen angefangen )
type
TZiehung = record
z1 : integer ;
z2 : integer ;
z3 : integer ;
z4 : integer ;
z5 : integer ;
z6 : integer ;
zz : integer ;
end;
var
path: string;
Daten : file of TZiehung;
MyStream : TFileStream;
begin
// --------------------------
begin;
path := ExtractFilePath(ParamStr(0));
AssignFile(Daten,path+ 'Ziehungen.dat');
if FileExists('Ziehungen.dat') then ReSet(Daten)
else ReWrite(Daten);
begin
try
MyStream := TFileStream.Create('Ziehungen.dat',fmOpenReadWrite );
MyStream.WriteBuffer(Daten,SizeOf(TZiehung));
except
ShowMessage('Fehler beim Erstellen der Datei');
end;
MyStream.Free;
end;
// -----------------------------------------------------
end;
Noch etwas zu den
Exception-Fehlermeldungen. Ich hab da in der Delphihilfe gesucht und nicht gerade viel dazu gefunden. Da hieß es nur, manche stören und welche nicht und man kann noch welche in eine Liste aufnehmen. Gibt es da eine Adresse wo auch Beispiele für ne Fehlermeldung dabei ist ( auf deutsch ) ?
Danke jetzt schon mal für eure Hilfe !
Gruß Jiron