"Dreckige" Zeichenkette bereinigen und kompilierbar machen

[DieDolly]

Die Wahrscheinlichkeit, dass das funktioniert, ist leider 50/50.
In Sprachen wie Italienisch und Französisch, kommen sehr viele von diesen ' mitten im Satz vor.
Trotzdem Danke für die Hilfe bis hierher.

Hier bin ich mittlerweile, der Rest später

Delphi-Quellcode:

EndsWithVariable := not S.EndsWith(''';');
S := Copy(S, 2, Length(S) - 2); // ' am Anfang und Ende entfernen

S := AnsiQuotedStr(S, ''''); // alle ' zu ''

S := AnsiReplaceStr(S, '+''', '+ '''); // +' zu + '
S := AnsiReplaceStr(PS, '''+', ''' +'); // '+ zu ' +

S := AnsiReplaceStr(S, ''''' +', ''' +'); // '' + zu ' +
S := AnsiReplaceStr(S, '+ ''''', '+ '''); // + '' zu + '

S := S + IfThen(EndsWithVariable, '', '''') + ';' // ' am Anfang und Ende (falls notwendig) wieder anfügen