Strings suchen und auf zeile prüfen

[chrisw]

ungetestet, aber in etwa so !

Delphi-Quellcode:

var NurEinWort : String;
....
NurEinWort := '';
for i := 1 to length(Memo1.Text) do
  if Memo1.Text[i] = ' ' then
  begin
    TuEtwasMitDemWort;
    NurEinWort  := '';
  end else NurEinWort  := NurEinWort  + Memo1.Text[i];