Главная страница
    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.45 MB
Время: 0.041 c
1-1084702325
Jiurasdfgfr
2004-05-16 14:12
2004.05.30
Тип переменной для записи текста из RichEdit?


1-1084822240
connect
2004-05-17 23:30
2004.05.30
Как взять значение переменных окружения в виндузе и ....


1-1084812057
DoAll
2004-05-17 20:40
2004.05.30
Кодинг прям в проекте (*.dpr)


14-1084430464
Kerk
2004-05-13 10:41
2004.05.30
"Can t sleep because of Peter Norton s Disk Editor glory". (c)


7-1082177980
Эйф
2004-04-17 08:59
2004.05.30
Тахеометр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский