Delphi-Quellcode:
var
atxt,
pw, Rardatei,
rpf: string;
aLen, pwl: Integer;
FS: TFileStream;
begin
aLen:=Length(aTxt);
FS:=TFilestream.Create(Dateiname,fmCreate);
FS.Write(aLen, SizeOf(Integer));
FS.Write(Pointer(aTxt)^,aLen*SizeOf(Char));
FS.Free;
Ich habe meine eigenen Beiträge und eure Antworten hier durchsucht, eil ich mich erinnerte, das schonmal gefragt zu haben. Könnte es so gehen. Ich verstehe es nicht aber in einem Programm von mir funktioniert es.
Willie.