Finde et ord i linie

?

procedure TfrmMain.TestButtonClick(Sender: TObject);
var
  List : TStringList;
begin
  List := TStringList.Create;
  try
    List.Delimiter := #32;
    List.DelimitedText := InputEdit.Text;

    DataListBox.Items.Assign(List); // Kopiér til listboks
  finally
    List.Free;
  end;
end;

InputEdit indeholder din tekst. I listen er Count = antallet af ord, hvert ord ligger splittet op i listen, så List[0] er "hej" mens List[2] er "dig"

virker den også selvom der er fx 4 mellemrum?

I mit program gør den. I øvrigt har Stone lavet samme løsning i et af dine andre spørgsmål

har jeg lige set... okay, så skal du have points ;)