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

перевод из строки в TStringList   Найти похожие ветки 

← →
killer ©   (2004-04-18 16:28) [0]

Родскажите пожалуйста... как можно перевесли строку в TStringList... т.е. каждое слово в новой строке...
делаю я так...

var
s,t: string;
str: TStringList;

for i:=1 to Length(s) do
 begin
 if s[i]=" " then
   begin
   if (t<>" ") and (t<>"") then
     begin
     str.Add(t);
     t:="";
     end;
   end
 else
   begin
   if i=Length(s) then
     begin
     t:=t+s[i];
     str.Add(t);
     t:="";
     end
   else
     begin
     t:=t+s[i];
     end;
   end;
 end;

---

← →
killer ©   (2004-04-18 16:29) [1]

у меня почему-то вылитает ошибка всегда.......(((

---

← →
Гаврила   (2004-04-18 16:34) [2]

CommaText, Delimiter, DelimitedText
F1
все на самом деле проще )

---

← →
killer ©   (2004-04-18 17:49) [3]

это же свойсва TStrings... а мне нужно из строки сделать TStrings (по словам)...

---

← →
Гаврила   (2004-04-18 17:55) [4]

var
 Strings: TStrings;
...
Strings.Delimiter:=" ";
Strings.DelimitedText:= <текст>
после этого Strings заполняется содержимым, с разделением на слова

---

← →
Anatoly Podgoretsky ©   (2004-04-18 17:55) [5]

property CommaText: string;
property DelimitedText: string;
property Delimiter: Char;

а мне нужно из строки сделать TStrings (по словам)...

---

← →
killer ©   (2004-04-18 17:57) [6]

Гаврила а, вот там как... спасибо тебе!

---

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

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



Память: 0.46 MB
Время: -0.979 c