Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: 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 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-19990
alexru
2003-06-13 11:54
2003.07.07
Сортировка в TDBGrid


8-20167
altarasjuk
2003-03-21 21:15
2003.07.07
Canvas dose not allow drawing.


1-20145
Armen
2003-06-25 02:49
2003.07.07
Kylix3 dso


14-20243
Soft
2003-06-19 18:09
2003.07.07
Уязвимость в Win2000


14-20303
leonidus
2003-06-18 21:44
2003.07.07
Накручивалка баннеров