Как разделить строку на слова?

← →
Артем К (2003-06-25 02:31) [0]

Привет всем!!!

Допусти у меня есть строка "Как разделить строку на слова?"

Как ее разделить на слова и отдельные слова вывести в Memo

Заранее спасибо!!!

← →
Германн (2003-06-25 02:42) [1]

Не прибегая к сторонним компонентам - используй Pos(#20,St), Copy(St,i,n) и Memo.Lines.Add().

← →
Спрашивающий_ (2003-06-25 03:14) [2]

Один из вариантов правда он чувствителен к колличеству пробелов между словами будет добавлять пустые строки если пробелов больше 1
procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
I,J:Integer;
SL:TStringList;
begin
J:=0;
S:=Edit1.Text;
SL:= TStringList.Create;
For I:=1 To Length(S)Do
begin
If S[I]<>" " Then
begin
SL.Add("");
SL[J]:=SL[J]+S[I];
end
Else
begin
Inc(J);
end;
end;
Memo1.Text:=SL.Text;
SL.Free;
end;

← →
MBo (2003-06-25 06:21) [3]

почитай хелп о TStrings.CommaText

Как разделить строку на слова? Найти похожие ветки