| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как построчно считывать содержимое из файла? [D7, Win2k, WinXP]

Vikindos ©   (2008-03-14 21:54:00) 

Нужна функция, задаем название файла и номер строчки, результат - строка. Без всяких компонентов.

помогите.

---

Skyle   (2008-03-17 10:21:00) [1]

> KSergey ©   (17.03.08 10:02) [12]
> Эй, любители StringList'ов, написано же:

Они не любители, они - профессионалы.

---

Leonid Troyanovsky   (2008-03-17 10:16:00) [2]

> KSergey ©   (17.03.08 10:02) [12]

> Эй, любители StringList'ов, написано же:

> > Без всяких компонентов.

Они - не компоненты.

--
Regards, LVT.

---

KSergey   (2008-03-17 10:02:00) [3]

Эй, любители StringList'ов, написано же:

> Vikindos ©   (14.03.08 21:54)  
> Без всяких компонентов.

---

MOO   (2008-03-15 18:57:00) [4]

> Виктор007

наверное шестую строку всё таки.

---

Виктор007   (2008-03-15 18:09:00) [5]

var
SL: TStringList;

begin
SL := TStringList.Create;
SL.LoadFromFile('1.txt');

// Вывести строку номер 5
// SL.Count - количество строк
ShowMessage(SL[5]);

SL.Free;

---

Kolan   (2008-03-15 00:34:00) [6]

В стринг лист загрузи свой фалй, а потом:

Strings[номер строчки]

---

Германн   (2008-03-15 00:27:00) [7]

> Vikindos ©   (14.03.08 22:07) [4]
>
> нет других способов?
>

Тебе сюда:
http://www.delphikingdom.com/lyceum/seminar.asp?ID=2

---

No_Dead   (2008-03-14 23:26:00) [8]

> [0] Vikindos ©   (14.03.08 21:54)

че-то в этом роде

function PleaseReadMyFile(put:string;StrokaVFile:integer):string;
var
fff:textfile;
buf:string;
i:integer;
begin
i:=0;
assignfile(fff,put);
reset(fff);

while not eof(fff) do
begin
readln(fff,buf);
inc(i);
if i=strokavfile then
break;
end;

if (i

---

Johnmen   (2008-03-14 23:03:00) [9]

> нет других способов?

Есть. Платишь деньги - за тебя и думают и делают.

---

{RASkov}   (2008-03-14 22:11:00) [10]

> [4] Vikindos ©   (14.03.08 22:07)

Есть, а зачем тебе сложнее-то? ;)
Впрочем есть способ и полегче с TStringList'ом например ну и потом Result:=List[Index];;)

---

Vikindos   (2008-03-14 22:07:00) [11]

нет других способов?

---

{RASkov}   (2008-03-14 22:04:00) [12]

> [2] Vikindos ©   (14.03.08 22:00)

тебе понадобятся:
F: TextFile;
i: Integer;
ну и while, not eof, inc, readln, if...

---

Vikindos   (2008-03-14 22:00:00) [13]

обычный текстовый документ, в котором написаны строки

11111111111111
22222222222222222222
3333333333
4444444444444444

таким образом.

---

Efir   (2008-03-14 21:56:00) [14]

А чё за файл?

---

Наверх