Ja und?
Routine umdrehen:
Alles bis zum ersten ' weg.
Alles bis zum letzten ' weg.
Doppelte '' durch ' ersetzen?
Macht also genau einen zweiten Button aus.
Delphi-Quellcode:
var
s : String;
i : Integer;
begin
Memo1.Lines.Clear;
Memo1.PasteFromClipboard;
Memo2.Lines.Clear;
for i := 0 to Memo1.Lines.Count - 1 do begin
s := Memo1.Lines[i];
s := Copy(s,Pos('''',s) + 1, Length(s);
s := ReverseString(s);
s := Copy(s,1,Pos('''',s) + 1,Length(s));
s := ReverseString(s);
s := AnsiReplaceText(s,'''''','''');
Memo2.Lines.Add(s);
end;
Memo2.SelectAll;
Memo2.CopyToClipboard;
end;