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

Вниз

Как из текстового файла вывести две первые строки.   Найти похожие ветки 

 
a.s.popow ©   (2007-06-17 12:55) [0]

У меня во такая проблема: нужно чтобы можно было выбрать любой .txt файл после чего в полях Edit1 и Edit2 были видны первая и вторая строчка из этого файла.
Заранее СПАСИБО!


 
Anatoly Podgoretsky ©   (2007-06-17 13:06) [1]

> a.s.popow  (17.06.2007 12:55:00)  [0]

Это техническое задание, а проблема то в чем?


 
Cj ©   (2007-06-17 13:11) [2]

если я правильно тебя понял, то попробуй вот так:

var
s:TStringlist;
begin
s:=tstringlist.create;
s.LoadFromFile("file.txt");
edit1.text:=s.lines[0];
edit2.text:=s.lines[1];
s.free;
end;

а чтоб выдрать ЛЮБОЙ файл используй OpenDialog.execute затем s.loadfromfile(opendialog.filename);


 
Cj ©   (2007-06-17 13:14) [3]


> вывести две первые строки


еще их можно выводить за ниточку или пинками


 
Anatoly Podgoretsky ©   (2007-06-17 13:17) [4]

> Cj  (17.06.2007 13:11:02)  [2]

Ну ты посоветовал, а если файл будет на сотни мегабайт, не говоря уже об ошибках в примере, из по крайней мере три.


 
Cj ©   (2007-06-17 13:22) [5]


> а если файл будет на сотни мегабайт


пусть тогда использует BlockRead в массив/строку до второго chr(13)


> не говоря уже об ошибках в примере


все время клонит на Memo


 
Однокамушкин   (2007-06-17 13:52) [6]


> Cj ©   (17.06.07 13:22) [5]
> пусть тогда использует BlockRead в массив/строку до второго
> chr(13)

А что, TextFile и ReadLn уже отменили?


 
a.s.popow ©   (2007-06-17 14:57) [7]

Anatoly Podgoretsky
А ошибки то какие?


 
Anatoly Podgoretsky ©   (2007-06-17 15:00) [8]

> a.s.popow  (17.06.2007 14:57:07)  [7]

А зачем, данный код все равно не представляет никакого интереса, никому.


 
Infinityx93 ©   (2007-06-17 15:01) [9]

а как же сам a.s. popow????


 
Kolan ©   (2007-06-17 15:26) [10]

> А ошибки то какие?

1. Нет try finally
2. В  файле может не оказаться 2х строк.


 
Однокамушкин   (2007-06-17 15:34) [11]


> Kolan ©   (17.06.07 15:26) [10]

3. У TStringList нет свойства Lines...


 
a.s.popow ©   (2007-06-17 15:57) [12]

А кокое свойство лутчше использовать?


 
Infinityx93 ©   (2007-06-17 16:21) [13]

я думаю strings


 
Kolan ©   (2007-06-17 16:27) [14]

> А кокое свойство лутчше использовать?

S[I]

Ps ты хот чтоли для разнообразия попробу это скомпилить и поймёшь, что использовать lines не то что хеже, а просто невозможео&#133


 
a.s.popow ©   (2007-06-17 16:30) [15]

Спасибо всем я уже разобрался в данном вопросе



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

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

Наверх




Память: 0.5 MB
Время: 0.019 c
6-1166481018
PHPDeveloper
2006-12-19 01:30
2007.07.15
WebBrowser


2-1182083704
ILUT
2007-06-17 16:35
2007.07.15
Помогите кто чем может!


2-1182437480
Delon
2007-06-21 18:51
2007.07.15
Добрый вечер уважаемые мастера! Прошу помочь разобраться.


15-1181765527
megajober3d
2007-06-14 00:12
2007.07.15
Как работать с idHTTP, кто знает, кто здесь самый крутой :)!!!


15-1181983506
Сатир
2007-06-16 12:45
2007.07.15
Как из экзешника запустить батник?