Главная страница
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.028 c
14-1120332268
NewWonder
2005-07-02 23:24
2005.07.25
Как написать аналог этого кода на MS Visual C++


14-1120412743
Kerk
2005-07-03 21:45
2005.07.25
By 2012...


4-1113913379
Max_005
2005-04-19 16:22
2005.07.25
Как программно закрыть PopupMenu и отлавливать указатель мыши


14-1119987504
AG.Smit
2005-06-28 23:38
2005.07.25
Bluetooth, SP2 и WIDCOMM


8-1111692690
Sky
2005-03-24 22:31
2005.07.25
Как в делфи реализовать фильтрацию звука по частотам