Главная страница
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
14-20290
Demon[DZ]
2003-06-20 11:10
2003.07.07
LPT


1-20082
Voyager_XX
2003-06-23 19:55
2003.07.07
Чем вызвана ошибка Cannot assign a TFont to a TFont...


1-20156
denis24
2003-06-25 11:33
2003.07.07
массив tEdit


14-20273
Vampire
2003-06-19 06:16
2003.07.07
Идет экзамен...нужен текст проги


1-20138
picaroon
2003-06-25 08:23
2003.07.07
Передача переменных из формы в форму.