Главная страница
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.47 MB
Время: 0.028 c
3-1091554030
сергей1
2004-08-03 21:27
2004.08.29
ловля ошибок


3-1091447741
DSKalugin
2004-08-02 15:55
2004.08.29
Агрегатные функции со строками AVG(), min(),max()...


3-1091702803
Shama_n
2004-08-05 14:46
2004.08.29
Как получить набор данных только с уникальными значениями?


3-1091524978
Zabludshiy
2004-08-03 13:22
2004.08.29
заполнение CLOB поля в oracle 8


11-1079974942
Delphi5.01
2004-03-22 20:02
2004.08.29
_NewControl (Aparent, MyControl ,?????,true,?????)