Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из текстового файла вывести две первые строки. [D7, XP]

a.s.popow © (2007-06-17 12:55:00)
У меня во такая проблема: нужно чтобы можно было выбрать любой .txt файл после чего в полях Edit1 и Edit2 были видны первая и вторая строчка из этого файла.
Заранее СПАСИБО!

a.s.popow (2007-06-17 16:30:00) [1]
Спасибо всем я уже разобрался в данном вопросе

Kolan (2007-06-17 16:27:00) [2]
> А кокое свойство лутчше использовать?

S[I]

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

Infinityx93 (2007-06-17 16:21:00) [3]
я думаю strings

a.s.popow (2007-06-17 15:57:00) [4]
А кокое свойство лутчше использовать?

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

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

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

Kolan (2007-06-17 15:26:00) [6]
> А ошибки то какие?

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

Infinityx93 (2007-06-17 15:01:00) [7]
а как же сам a.s. popow????

Anatoly Podgoretsky (2007-06-17 15:00:00) [8]
> a.s.popow (17.06.2007 14:57:07) [7]

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

a.s.popow (2007-06-17 14:57:00) [9]
Anatoly Podgoretsky
А ошибки то какие?

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

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

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

Cj (2007-06-17 13:22:00) [11]

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

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

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

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

Anatoly Podgoretsky (2007-06-17 13:17:00) [12]
> Cj (17.06.2007 13:11:02) [2]

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

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

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

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

Cj (2007-06-17 13:11:00) [14]
если я правильно тебя понял, то попробуй вот так:

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);

Anatoly Podgoretsky (2007-06-17 13:06:00) [15]
> a.s.popow (17.06.2007 12:55:00) [0]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »