Probleme mit TFileStream

alex_id · Beiträge: 73

Hi
Ich habe folgene Procedure geschrieben jedoch bekomme ich immer eine Fehlermeldung und ich weiß nicht so recht weiter !!!

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Procedure Form1.Save;
var
   FileS : TFileStream;
 FileName : String;

Begin
   FileName := 'datei.dat';
   Try
     FileS.Create((FileName, fmOpenWrite);
     FileS.WriteBuffer(UserSave, SizeOf(user_daten_save));
   except
      ShowMessage('error');
   end;
   FileS.Free;
End;

Alex

Ehemaliges Mitglied Erhaltene Danke: 1

Ist ja schön, dass du den Source gepostet hast. Aber warum verschweigst du uns die Fehlermeldung? Ist das ein Geheimnis? :roll:

markieren

Quelltext

1:	FileName := 'datei.dat';

Wo landet die Datei. Sag jetzt nicht im Programmverzeichnis.

markieren

Quelltext

1:	FileS.Create((FileName, fmOpenWrite);

Wie viele Klammer öffnest du und wie viele machst du wieder zu?

Was ist UserSave und user_daten_save? :roll:

Setz mal das FileS.Create... vor das try.

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Und mach aus

markieren

Quelltext

1:	FileS.Create(...

folgendes:

markieren

Quelltext

1:	FileS := TFileStream.Create(

_________________
Ist Zeit wirklich Geld?

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

nochwas...ich würd ..Create(FileName, fmCreate);
nehmen, da sonst, wenn deine daten mal kürzer sind, die alten noch überlappen.

BungeeBug · Beiträge: 901

hi ...

vorallem musst du nen Pfad angeben wo die Datei hin soll

markieren

Quelltext

1:	Stream := TFileStream.Create('./lalala.dat', fmCreate);

erstellt eine Datei im Prog-Verzeichniss .. ansonsten musst du den gesammten Pfad wo du hin willste angeben ... alles andere für unwillkürlich zu einem Error

MfG BungeeBug

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

BungeeBug hat folgendes geschrieben:

erstellt eine Datei im Prog-Verzeichniss

Das glaube ich nicht. Ich denke bei Deiner o. g. Art wird die Datei in dem aktuellen Arbeitsverzeichnis erstellt.

Gruß
TINO

BungeeBug · Beiträge: 901

ups ... jaja recht du hast ... aber im normal fall is ja das "Prog-Verzeichniss" das "Arbeitsverzeichniss" von daher denk ich das das nicht das Problem da stellen sollte ?!

MfG BungeeBug

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Davon auszugehen das das Arbeitsverzeichnis gleich dem Programmvezeichnis ist... ist mist! Deshalb sollte man folgendes benutzen um sicher zu sein das die Datei auch im Programmverzeichnis erstellt wird:

markieren

Quelltext

1:	Stream := TFileStream.Create(ExtractFilePath (ParamStr (0)) + '/lalala.dat', fmCreate);

Gruß
TINO

alex_id · Beiträge: 73

Hi Leute

Danke für eure schnelle Hilfe !!!

markieren

Quelltext

1:	FileS.Create((FileName, fmOpenWrite);

Zitat:

Wie viele Klammer öffnest du und wie viele machst du wieder zu?

-> das war ein Tippfehler da ich mehreres probiert hatte ... sorry

eigentlicher Fehler war das ich nicht das Verzeichtnis mit angegeben hatte !!!! :roll:

Alex
Manchmal übersieht man die kleinen Dinge, die aber von Bedeutung sind :!:

DaRkFiRe · Beiträge: 526 WinXP Home & Professional C, C++, Delphi

markieren

Quelltext

1:	FileS.Create((FileName, fmOpenWrite);

meiner meinung nach entsteht dort immer ein Fehler, liegt es doch daran, dass FileS nicht mal initialisiert wurde. mir wäre auch unbekannt, dass delphi schon automatisch alle lokalen variablen vorinitialisiert, sodass das objekt bereits existiert

mein vorschlag:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Procedure Form1.Save; 
var 
   FileS : TFileStream; 
FileName : String; 

Begin 
   FileName := 'datei.dat'; 
   Try 
     IF FILEEXISTS(FileName) THEN
       FileS:=TFileStream.Create(FileName, fmOpenWrite)
     ELSE
       FileS:=TFileStream.Create(FileName, fmCreate);
     FileS.Write(UserSave, SizeOf(user_daten_save)); 
   except 
      ShowMessage('error'); 
   end; 
   FileS.Free; 
End;

_________________
Lang ist der Weg durch Lehren - kurz und wirksam durch Beispiele! Seneca

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme