Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.29;
Скачать: CL | DM;

Вниз

Как получить сегодняшнюю дату?   Найти похожие ветки 

 
Makssim   (2004-08-15 18:03) [0]

И еще вопрос: Как зная номер строки в файле, считать эту строку?


 
Anatoly Podgoretsky ©   (2004-08-15 18:09) [1]

Now переводится как Сегодня
Date переводится как дата


 
antonn ©   (2004-08-15 18:17) [2]

time текущее время

Memo1.lines.loadFromFiles("ssc.txt");
Label1.caption:=memo1.lines.strings[ номер строки(счет от нуля!) ];


 
Юрий Зотов ©   (2004-08-15 18:34) [3]

> Makssim   (15.08.04 18:03)  
> Как зная номер строки в файле, считать эту строку?

Прочитать и проигнорировать предыдущие строки (в цикле).

var
 F: TextFile;
 S: string;
 i: integer;
begin
 AssignFile(F, "C:\MyFile.txt");
 ReSet(F);
 for i := 1 to 10 do
   ReadLn(F, S);
 CloseFile(F);
 ... // Теперь S - это 10-я строка файла "C:\MyFile.txt"
end;


 
TUser ©   (2004-08-15 21:21) [4]


> Как зная номер строки в файле, считать эту строку?

Тут рядом ветка есть.


 
Makssim   (2004-08-15 22:52) [5]

Юрий Зотов ©   (15.08.04 18:34) [3]
Прочитать и проигнорировать предыдущие строки (в цикле).

Спасибо за ответ, но если в файле много строк? Никак нельзя считать сразу нужную строку?


 
TUser ©   (2004-08-15 23:18) [6]


> Никак нельзя считать сразу нужную строку?

В общем случае - нет. Если известно, что все строки одинаковой длины, тогда - да. Быстрый способ загрузить строки - через TStringList


 
Makssim   (2004-08-15 23:40) [7]

спасибо, помогли



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

Текущий архив: 2004.08.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
3-1091771457
Shtukos
2004-08-06 09:50
2004.08.29
Как побороть ошибку при исполнении запроса?


14-1092103092
Думкин
2004-08-10 05:58
2004.08.29
С днем рождения! 10 августа


4-1090222728
pavel_guzhanov
2004-07-19 11:38
2004.08.29
Com Port


10-1033633458
Comwad
2002-10-03 12:24
2004.08.29
Опять про злосчастный "Assertion faild: _reply_message!=(..."


1-1092399868
begin...end
2004-08-13 16:24
2004.08.29
TForm.OnShow