Mhmm..., das was Florian Bernd da schreibt ist eigentlich logisch...
aber es scheint nicht zu funktionieren. (achja, das ' wird zu '').
Hier mal meine Version (hab's getestet):
Delphi-Quellcode:
var s:String;
var i, copy_to:integer;
begin
s:=Clipboard.AsText;
for i:=1 to length(s) do begin
if s[i] = '''' then begin
copy_to:=i;
end;
end;
ShowMessage(copy(s,1,copy_to-1));
end;
guut..., das ist eigentlich n bissle umständlich..., aber mir fällt grad nix anderes ein...
Greetz by Hux
Edit: "da schreibt" eingefügt...
restlichen 3mal: Grammatikfehler im 1. Satz verbessert -.-