Строка с запятыми!

← →
Azazzello (2004-05-18 08:23) [0]

Есть строка с запятыми такого вида

1, 2, ТЕКСТ, 1, и так далее нужно это дело разбить
на строки

1
2
Текст
1

Как это сделать? Запятая разграничитель данных.

← →
MBo © (2004-05-18 08:31) [1]

TStringList.CommaText

← →
NAlexey © (2004-05-18 09:08) [2]

Или так:
TStringList.Text := AnsiReplaceStr(Str, ",", #13#10);

← →
Azazzello (2004-05-18 09:15) [3]

А потом как добратся до одного элемента разделенных #13#10.
Что потом их распихать по переменным.

← →
ЮЮ © (2004-05-18 09:19) [4]

Help -> TStringList

StringList[i]
StringList.Items[i]

← →
Azazzello (2004-05-18 09:23) [5]

Логично

Я бы, наверное, типа такого сделал (пример "с неба"):

type
TArr = array of String;

procedure Хрясть(S: String; const Delim: String; var Arr: TArr);
begin
while Pos(Delim, S) do
begin
SetLength(Arr, Length(Arr) + 1);
Arr[Length(Arr) - 1] := Copy(S, 1, Pos(Delim, S) - 1);
Delete(S, 1, Pos(Delim, S));
end;
end;

Вобщем, формат у S должен быть, вроде бы, типа такого:
"1,2,Text,3,"
А то, кажись, программа зависнет...

Пример:

var
s: String;
Arr: TArr;
i: Integer;
begin
s := "1,2,Text,3,";
Хрясть(s, ",", Arr);
for i := 0 to Length(Arr) - 1 do
Memo1.Lines.Add(Arr[i]);
end;

← →
Kair (2004-05-18 16:10) [8]

>NAlexey © (18.05.04 12:24) [7]
>>Kair © (18.05.04 11:46) [6]
>А зачем все эти хрясть? Зачем желание городить огороды?

Я бы так сделал...

Строка с запятыми! Найти похожие ветки