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