Текущий архив: 2004.05.30;
Скачать: CL | DM;
ВнизСтрока с запятыми! Найти похожие ветки
← →
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]Логично
← →
Kair © (2004-05-18 11:46) [6]Я бы, наверное, типа такого сделал (пример "с неба"):
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;
← →
NAlexey © (2004-05-18 12:24) [7]>Kair © (18.05.04 11:46) [6]
А зачем все эти хрясть? Зачем желание городить огороды?
← →
Kair (2004-05-18 16:10) [8]>NAlexey © (18.05.04 12:24) [7]
>>Kair © (18.05.04 11:46) [6]
>А зачем все эти хрясть? Зачем желание городить огороды?
Я бы так сделал...
Страницы: 1 вся ветка
Текущий архив: 2004.05.30;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.041 c