Einzelnen Beitrag anzeigen

Benutzerbild von Evian
Evian

Registriert seit: 10. Apr 2003
Ort: Berlin
485 Beiträge
 
Delphi 6 Professional
 
#10

Re: Teilstring in einen anderen String kopieren

  Alt 31. Mai 2006, 16:25
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?!
-> www.Phillsoft.de

Ich bin nun Mathematiker, aber meine Freundin bleibt trotzdem unberechenbar!
  Mit Zitat antworten Zitat