Stringlist ohne Zeilenumbruch speichern

[KodeZwerg]

Zitat von BMI:

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;