Скачать: CL | DM;

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

← →
Артем К   (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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c