"Dreckige" Zeichenkette bereinigen und kompilierbar machen

[Delphi.Narium]

Testdatei mit folgendem Inhalt:

Code:

X := '123' + '456' + sLineBreak + 'test' + sLineBreak + '.';
p'i

Pascalscript:

Delphi-Quellcode:

program Test;
var
  i  : Integer;
  sl : tStringList;
  s  : String;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('c:\temp\test.test');
  for i := 0 to sl.Count - 1 do begin
    s := sl[i];
    s := AnsiReplaceStr(s,'''','''''');
    s := AnsiReplaceStr(s,' ''''',' ''');
    s := AnsiReplaceStr(s,''''' ',''' ');
    s := AnsiReplaceStr(s,''''';',''';');
    sl[i] := s;
  end;
  sl.SaveToFile('c:\temp\test.test.neu');
  sl.Free;
end.

Ausgabe:

Code:

X := '123' + '456' + sLineBreak + 'test' + sLineBreak + '.';
p''i

Eventuell als Ansatz zu gebrauchen?