DruckenMister WongFacebook

Wort aus einem String an einer Position extrahieren

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Folgende Funktion extrahiert das Wort, das sich an einer bestimmten Position befindet.Zu einem Wort gehören alle Zeichen, die diesem Set angehören:

Als Parameter erwartet die Funktion zunächst den Text in Form eines String und die Position:

Um das Wort an der Cursorposition eines Memo-Feldes zu extrahieren, können Sie die Funktion wie folgt aufrufen:


procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Edit1.Text := GetSeperateWord(Memo1.Text, Memo1.SelStart);
end;