Главная страница
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.048 c
14-1118339701
Piter
2005-06-09 21:55
2005.07.25
Теперь и FAQ не работает


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


9-1113242045
4ECHOK
2005-04-11 21:54
2005.07.25
[GLScene] Прозрачность 3DS-модели


1-1120733493
kyn66
2005-07-07 14:51
2005.07.25
Перевести исходник СИ++ на Паскаль


3-1118894388
Dron1173
2005-06-16 07:59
2005.07.25
Аварийное закрытие приложения