"Dreckige" Zeichenkette bereinigen und kompilierbar machen

[Delphi.Narium]

Tippe mal darauf, dass es sich um Quelltexte handelt, bei denen innerhalb von Zeichenfolgen bei 'nem ' das zweite ' fehlt, um einen korrekten Quelltext zu erhalten.

Delphi-Quellcode:

  if (Stringvariabel = 'a''a') then  // <- müsste sein
  if (Stringvariabel = 'a'a') then  // <- aber enthalten ist

aus demhier

Delphi-Quellcode:

  sQuelltext := 'Quelltext';
  s1 := 'Tippe mal darauf, ';
  s2 := 'dass es sich um ' + sQuelltext + 'e handelt, ';
  s3 := 'bei denen innerhalb von Zeichenfolgen '
  s4 := 'bei 'nem ' das zweite ' fehlt, ';
  s5 := 'um einen korrekten ' + sQuelltext + ' zu erhalten.';
  ShowMessage(s1 + s2 + s3 + s4 + s5);

soll dashier

Delphi-Quellcode:

  sQuelltext := 'Quelltext';
  s1 := 'Tippe mal darauf, ';
  s2 := 'dass es sich um ' + sQuelltext + 'e handelt, ';
  s3 := 'bei denen innerhalb von Zeichenfolgen '
  s4 := 'bei ''nem '' das zweite '' fehlt, ';
  s5 := 'um einen korrekten ' + sQuelltext + ' zu erhalten.';
  ShowMessage(s1 + s2 + s3 + s4 + s5);

werden.

Und das Ganze quasi für beliebige Quelltexte.

Und wie wir sehen, hat die Syntaxhervorhebung hier im Forum mit dem "Original" auch so ihre Probleme

[DieDolly]

Ich hole Strings aus einer Datei raus und packe sie in eine pas-Datei. In der Pas-Datei sind Dummy-Texte, die mit dem jeweiligen String der da hingehört ersetzt wird.
Das funktioniert seit vielen Monaten ohne Probleme.

Aber die Strings die ich aus der Uresprungsdatei raushole, können italienisch, französisch oder sonst was sein. Diese Sprachen haben oft ein ' irgendwo.
Die Strings können aber auch + sLinebreak + und sowas erhalten. Deswegen ist ein "einfach alle ' durch '' ersetzen" nicht möglich.