перевод из строки в 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 заполняется содержимым, с разделением на слова

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

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

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

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