Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.48 MB
Время: 0.025 c
1-1085026665
Papai
2004-05-20 08:17
2004.05.30
Работа с датами


14-1084011192
Drakon
2004-05-08 14:13
2004.05.30
С днём победы!


1-1084515715
Nert
2004-05-14 10:21
2004.05.30
Создание компонента через dll


1-1084782601
BelAS
2004-05-17 12:30
2004.05.30
Хитрая распечатка


3-1083842843
}|{yk
2004-05-06 15:27
2004.05.30
Две связанные таблицы имеют триггеры на update