Text an EXE-Datei anhängen und wieder auslesen

[shmia]

Kurz und knackig:

Delphi-Quellcode:

procedure Write_Str(file1 : TStream; const was : string); 
begin 
   file1.WriteBuffer(was[1], Length(was)); 
end; 

function Read_Str(file1 : TStream; lang : Integer) : string; 
begin 
   SetLength(Result, lang);
   file1.ReadBuffer(Result[1], lang);
end;