Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-1120377854
VadimX
2005-07-03 12:04
2005.07.25
Помогите оптимизировать код


14-1120463236
Layner
2005-07-04 11:47
2005.07.25
Немного об автоматизации работы.


1-1120548692
Igor_thief
2005-07-05 11:31
2005.07.25
Как мониторить определенную ветку в реестре?


9-1113467814
parovoZZ
2005-04-14 12:36
2005.07.25
Техника QuadTree


1-1120511944
Велосипед
2005-07-05 01:19
2005.07.25
Как на Canvas е писать текст под углом ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский