Скачать: 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 вся ветка

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



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