Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
6.897 Beiträge
 
Delphi 10.3 Rio
 
#11

AW: Editor wird nicht richtig gezeichnet

  Alt 11. Jan 2019, 10:10
Was die Zeilenenden betrifft, hiermit:
Delphi-Quellcode:
program CleanLineFeeds;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.IOUtils;

procedure HandleFile(const FileName: string);
var
  S: string;
begin
  S := TFile.ReadAllText(FileName);
  S := AdjustLineBreaks(S);
  TFile.WriteAllText(FileName, S);
end;

procedure Main;
var
  I: Integer;
begin
  for I := 1 to ParamCount do begin
    HandleFile(ParamStr(I));
  end;
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat