Exception bei TFileStream

cromos · Beiträge: 219 Delphi 7

Hallo

follgende Prozedur:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure SaveStringToFile(Filename, SaveString: string);  
var fs:TFileStream;  
begin  
  fs:=TFileStream.Create(Filename, fmCreate or fmShareExclusive  );  
  fs.Write(SaveString[1], Length(SaveString));  
  fs.Free;  
end;

Aufruf mit:

markieren

Delphi-Quelltext

1:
2:
3:

str := ListView1.Selected.SubItems.CommaText;
ProgrammOrdner:=ExtractFilePath(application.ExeName);
SaveStringToFile(ProgrammOrdner + 'test.csv', str);

Bekomme eine Exception. Warum? Kann jemand helfen?

Gruss
Cromos

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

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

Zitat:

fs:=TFileStream.Create(Filename, fmCreate or fmShareExclusive );
fs.Write(SaveString[1], Length(SaveString));
fs.Free;

Neben dem, dass hier der Resourcenschutzblock (try/finally) fehlt, gehst du davon aus, dass SaveString nie leer ist.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

fs:=TFileStream.Create(Filename, fmCreate or fmShareExclusive  );
try
  if SaveString <> '' then
    fs.Write(SaveString[1], Length(SaveString));
finally
  fs.Free;
end;

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme