Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
15-1204265877
kiberg
2008-02-29 09:17
2008.04.13
Заполнение массива


15-1204206966
boriskb
2008-02-28 16:56
2008.04.13
Премьера «Кин-дза-дза» состоится в 2010 году


15-1202164568
Германн
2008-02-05 01:36
2008.04.13
Web-камера Genius Look 317


15-1204054285
WondeRu
2008-02-26 22:31
2008.04.13
Аппаратная проблема


15-1204064466
GanibalLector
2008-02-27 01:21
2008.04.13
Модем Siemens MC35i





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский