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

← →
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]

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

я думаю strings

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

S[I]

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

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

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