Hallo,
TFileStream.Close gibt bei meinem Delphi nicht.
Das Problem muss woanders liegen:
Delphi-Quellcode:
var
Txt: AnsiString;
begin
if SDialog.Execute then begin
// Txt:=Verschluesseln1(Memo1.Lines.Text,true,true); //Zeile A
Txt:=Memo1.Lines.Text; //Zeile B
FS:=TFilestream.Create(SDialog.FileName,fmCreate);
FS.Write(txt[1],Length(txt));
FS.Free;
end;
end;
Nur wenn TxT: AnsiString funktioniert dieses Konstrukt!!! Bei Txt: string werden 2 Bytes pro Zeichen auf die Festplatte geschrieben, (mit einem Hexeitor überprüft). Sobald ich Zeile B durch Zeile A ersetze geht es auch dann nicht mehr.
Kannst du mit diesem Wissen etwas anfangen? Bei der Konvertierung der Strings geht was schief?!.
Willie.