2) und wozu ist/ war die Funktion ("auch bei StringListen unten immer #13#10 anhängen") damals gut/ implementiert worden?
Vielleicht damit man über "f: File" ein "ReadLn(f)" machen kann?
Theoretisch kannst Du mit Read/ReadLn bzw Write/WriteLn das ganze locker hinbekommen.
hier nur mal so hingekritzelt, kann sein das was falsch ist....
Delphi-Quellcode:
function SchreibDasFile (const DateiName: String; const SL : TStringlist): Boolean;
// Parameter 1 = Ein valider Dateiname
// Parameter 2 = Eine StringList
var
Datei: TextFile;
Cnt: Byte; // wenn Deine SL mehr als 255 Einträge hat solltest Du das hier erweitern (!)
begin
Result := False;
try
AssignFile(Datei, DateiName);
Rewrite(Datei);
if {$I-}IOResult = 0{$I+} then
begin
for Cnt := 0 to SL.Count -2 do
writeln(Datei, SL[Cnt]); // <- hier wird alles mit Zeilenumbruch geschrieben
write(Datei, SL[SL.Count -1]); // <- hier nicht
CloseFile(Datei);
end;
finally
Result := True;
end;
end;