Форум: "Начинающим";
Текущий архив: 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(<путь к файлу, к примеру «D:\text.txt»>,<номер строки>);
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