Wort unter Memo-Cursor finden.

[BUG]

Ich blick bei dir auch nicht durch

Warum so kompliziert:

Delphi-Quellcode:

function getSelectedWord(const txt: string; start: integer): string;
const
  blank = [' ', #10, #13]; // <- kann erweitert werden, z.B. Punkte
var
  count: integer;
begin
  if length(txt) > 0 then
  begin
    if start < 1 then start := 1;
    count := 0;
    while ((start-1 >= 1) and (not (txt[start-1] in  blank))) do dec(start);
    while ((start+count <= length(txt)) and ((not (txt[start+count] in  blank)))) do inc(count);
    result := copy(txt, start, count);
  end else result := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := '"'+getSelectedWord(memo1.Text, memo1.SelStart)+'"';
end;

Wichtig: Wenn dieser Code verwendet wird muss {$B-} eingestellt sein (ist Standard, unter $B in der Hilfe nachschauen).


MfG,
Bug

@roter Kasten: ich poste meine Lösung trotzdem mal...

EDIT: Standart