Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

чтение данных из файла   Найти похожие ветки 

 
nat   (2005-07-07 11:22) [0]

Подскажите пожулуйста, как прочитать данные в Delphi из текстового файла .txt, если они записаны в виде двух столбцов

145 120
132 59
12  89
и т.д
Столбцы разделены tabom.


 
Digitman ©   (2005-07-07 11:27) [1]


> nat   (07.07.05 11:22)  


в какой форме д.б. представлен результат ?


 
Untermensch   (2005-07-07 11:52) [2]

TStringList, затем .LoadFromFile а затем функцией explode в цикле по .Count (данная функция есть во многих языках, но почему то не вставлена в Delphi). Её можно написать в 10 сточек за 10 мин. Она очень часто бывает нужна.

function explode(Separator, Source: string; MaxLength: integer): array of string;


 
AbrosimovA   (2005-07-07 12:04) [3]

Например, так:

var List: TStringList;
   i: integer;
begin
List:=TStringList.Create;
List.LoadFromFile("mytext.txt");
for i:=0 to List.Count-1 do begin
 List.Strings[i]:=StringReplace(List.Strings[i],#9,"   ",[rfReplaceAll]);
end;
ListBox1.Items.Assign(List);
end;


 
Fay ©   (2005-07-07 14:22) [4]

2 Untermensch   (07.07.05 11:52) [2]
>> данная функция есть во многих языках, но почему то не вставлена в Delphi
Видимо, как раз потому, что
>> Её можно написать в 10 сточек за 10 мин

З.Ы.
Функции факториала тоже почему-то нет 8)


 
Sergeich   (2005-07-08 10:48) [5]

TStringList.CommaText + F1



Страницы: 1 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1120484567
cyborg
2005-07-04 17:42
2005.07.25
Чего там с протараненой кометой?


1-1120823676
Still Swamp
2005-07-08 15:54
2005.07.25
Конвертировать строку в varian


1-1120929749
tazik
2005-07-09 21:22
2005.07.25
частичное оформление в Вин ХП


4-1117431878
kblc
2005-05-30 09:44
2005.07.25
Не был произведён вызов CoInitialize


3-1118124442
KotJunior
2005-06-07 10:07
2005.07.25
Как изменить размер поля базы данных...