Hi, ich möchte nen String in ne TXt-Datei streamen (so dass dann da normaler text steht)(der string soll vorger verändert werden, darum geht das memo1.savetofile nit)
Hab hier im forum auch gesucht und bin fündig gworden.
Mein Code sieht nun folgendermaßen aus
Delphi-Quellcode:
procedure TForm1.SaveToFile(FileName: String);
var
Stream: TFileStream;
Text: String;
TextLen,i: Integer;
begin
Stream := TFileStream.Create(FileName, fmCreate);
for i := 0 to memo1.Lines.Count do
begin
TextLen:=Length(memo1.Lines.Strings[i]);
Stream.WriteBuffer(TextLen,SizeOf(Integer));
Stream.WriteBuffer(Pointer(Text)^,TextLen);
end; <--Hier fehlermeldung
stream.Destroy;
end;
der stürzt aber immer mit er
Exception Stream-Write-Error ab, sobalt der in die for-Schleife geht und zeigt mir dann als Fehlerstelle das end;
Was mache ich hierbei falsch?