//Ну или вот еще для строки. Можно легко адаптировать для memo
procedure TForm1.AddWord(line:string;List:TStringList);
var
i:integer;
label Return;
begin
Line:=Trim(Line);
Return:
for i:=1 to length(Line) do begin
if i=length(Line) then begin
List.Add(Copy(Line,1,i));
exit;
end;
if Copy(Line,i,1)=' ' then begin
List.Add(Copy(Line,1,i-1));
Line:=Trim(Copy(Line,i+1,length(Line)-i));
goto Return;
end;
end;
end;
|