Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

Как построчно считывать содержимое из файла?   Найти похожие ветки 

← →
Vikindos ©   (2008-03-14 21:54) [0]

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

помогите.

---

← →
Efir   (2008-03-14 21:56) [1]

А чё за файл?

---

← →
Vikindos ©   (2008-03-14 22:00) [2]

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

11111111111111
22222222222222222222
3333333333
4444444444444444

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

---

← →
{RASkov} ©   (2008-03-14 22:04) [3]

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

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

---

← →
Vikindos ©   (2008-03-14 22:07) [4]

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

---

← →
{RASkov} ©   (2008-03-14 22:11) [5]

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

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

---

← →
Johnmen ©   (2008-03-14 23:03) [6]

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

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

---

← →
No_Dead ©   (2008-03-14 23:26) [7]

> [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<strokavfile) then
result:="Error: not found count. Please, try again. Total count ="+inttostr(i)
else

result:=buf;
closefile(fff);
end;

Вызов
PleaseReadMyFile(<путь к файлу, к примеру &laquo;D:\text.txt&raquo;>,<номер строки>);

P.S. :( скучно%>

---

← →
Германн ©   (2008-03-15 00:27) [8]

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

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

---

← →
Kolan ©   (2008-03-15 00:34) [9]

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

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

---

← →
Виктор007 ©   (2008-03-15 18:09) [10]

var
SL: TStringList;

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

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

SL.Free;

---

← →
MOO   (2008-03-15 18:57) [11]

> Виктор007

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

---

← →
KSergey ©   (2008-03-17 10:02) [12]

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

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

---

← →
Leonid Troyanovsky ©   (2008-03-17 10:16) [13]

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

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

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

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

--
Regards, LVT.

---

← →
Skyle ©   (2008-03-17 10:21) [14]

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.007 c