Umbruchzeichen bei readln, writeline

[neus]

Danke für eure Vorschläge die Lösung war die #10.

Meine Backupdatei enthält jetzt das Steuerzeichen für den nächsten TAG.

Delphi-Quellcode:

AssignFile(OldConfigFile,Edit5.Text+'\'+ListBox3.Items[i]+'_backup.cfg');
AssignFile(NewConfigFile,Edit5.Text+'\'+ListBox3.Items[i]+'.cfg');
Rewrite(NewConfigFile);
Reset(OldConfigFile);
// 5 Begin
while not eof (OldConfigFile) do
  begin
  ReadLn(OldConfigFile,NewConfigText);
  NewConfigText:=StringReplace(NewConfigText,ListBox5.Items[Strreplacerule],ListBox6.Items[Strreplacerule],[rfReplaceAll]);
  Write(NewConfigFile,NewConfigText+#10);
end;

danke und gute Nacht :zwinker:

[3_of_8]

Dann wars vermutlich ein Unix-System, für das das entwickelt wurde.

[neus]

Zitat:

Zitat von 3_of_8

Dann wars vermutlich ein Unix-System, für das das entwickelt wurde.

Ja ganz sicher (Security/VPN-Bereich). Wobei ich aus der Firmware noch nicht ganz schlau werde :stupid:

[marabu]

Hallo,

nur die "alten" I/O-Routinen arbeiten mit der vorkonfigurierten VCL-Konstante sLineBreak = #13#10. Wenn die Zeilentrenner nicht verändert werden sollen, dann kannst du auch mit Streams arbeiten - FileStreams interpretieren keine Steuerzeichen:

Delphi-Quellcode:

procedure FileReplace(const fnIn, fnOut: TFileName; const sOld, sNew: string);
var
  s: string;
begin
  with TFileStream.Create(fnIn, fmOpenRead or fmShareDenyWrite) do
  begin
    SetLength(s, Size);
    ReadBuffer(s[1], Size);
    Free;
  end;
  s := StringReplace(s, sOld, sNew, [rfReplaceAll]);
  with TFileStream.Create(fnOut, fmCreate) do
  begin
    WriteBuffer(s[1], Length(s));
    Free;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu