Teilstring in einen anderen String kopieren

[Evian]

das passiert wenn man zuschnell was zusammenkliert.

aus edit1.text := copy(c,pos(chr(39)+1,c),length(c)) muss natürlich
edit1.text := copy(c,pos(chr(39),c)+1,length(c)) werden.

gesammt wäre das dann follgendes:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Clipboard.Hasformat(CF_TEXT) then
begin
  c := clipboard.AsText;
  if pos(chr(39),c) <> 0 THEN
  BEGIN
    edit1.text := copy(c,pos(chr(39),c)+1,length(c))
  END else
  edit1.text := 'Kein Hochkomma vorhanden';
end;
end;

der code gibt dir aber nur den Teilstring vom ersten Hochkomma bis zum ende des Clipboardtextes, wenn Du den Text zwichen 2 Hochkammas haben willst, musst Du den Code natürlich entsprechend anpassen, bzw. noch mal posten.

EDIT:
Ist c eine globale String-Variabel?!