Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

Чтение из текстового файла   Найти похожие ветки 

 
Sniffer   (2002-08-19 00:02) [0]

Уважаемые мастера, помогите плиз. Надо считать, скажем сотую строку из текстового файла. Можно ли это сделать не так :
for i := 1 to 100
ReadLn(MyTextFile, S)
а как-то иначе? Ведь не охота считывать 99 строк, для того, чтобы считать сотую. Если чего не так сказал, сильно не ругайте :).
Спасибо.


 
Ученик   (2002-08-19 00:09) [1]

TStringList.LoadFromFile


 
Sniffer   (2002-08-19 00:21) [2]

Гм...Спасибо и на этом. Но всё же, мне всё-таки интересно узнать,можно ли это сделать через AssignFile(MyTextFile, "MyTextFile.txt");


 
Ученик   (2002-08-19 00:25) [3]

>Sniffer © (19.08.02 00:21)
Позиционироваться к определенной строке текстового файла нельзя


 
/\/\AXIM   (2002-08-19 01:45) [4]

Без ReadLn(F)

var
F : file;
A : array of byte;
I,k,g : cardinal;
S : PChar;
label 01;
begin
Write("String num >>> ");
ReadLn(g);
AssignFile(F,"txt.txt");
Reset(F,1);
SetLength(A,FileSize(F));
BlockRead(F,A[Low(A)],Length(A));
k:=1;
for I:=0 to High(A) do
begin
If A[I] = 13 then Inc(k);
If k = g then
for k:=I+1 to High(A) do
If A[k] = 13 then goto 01;
end;
01:
A[k]:=0;
Inc(I);
Inc(I);
S:=@A[I];
WriteLn(S);
ReadLn;
end.


 
RV   (2002-08-19 09:43) [5]

объявить его как офСтринг?


 
Anatoly Podgoretsky   (2002-08-19 10:08) [6]

Sniffer © (19.08.02 00:02)
Простыми методами нельзя.
Доступ к строками только последовательный.
Вариант есть только единственный, провести индексацию файла и в дельнейшем с ним работать не как с текстовый, использую позиционирование и считывая ихвестное количество символов.
Другие варианты только чтение всех строк до нужной, не важно с помощью ReadLn или загрузков в список, на самом деле это не так и медленно файл размером в 120 мегабайт загружается примерно 6 секунд, если конечно у компьютера есть достаточные ресурсы или черт знае сколько если иъ нет.
Вариант c ReadLn можно сделать немного более оптимальным


for i := 1 to N-1 do
begin
ReadLn(MyTextFile)
end;
ReadLn(MyTextFile,S)


 
kull   (2002-08-19 11:37) [7]

Есть вариант, если это возможно, если сделать все строки фиксированной длинны.



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

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

Наверх





Память: 0.46 MB
Время: 0.005 c
1-95746
Kif
2002-08-16 20:14
2002.08.29
Как программно узнать длину (в пикселях) Sys Tray’а?


1-95753
кондратий
2002-08-19 10:47
2002.08.29
DLL / Units


3-95708
billybons
2002-08-09 08:28
2002.08.29
не работает фильтр


3-95704
Sim0n
2002-08-08 08:54
2002.08.29
помогите разобраться с DBGrid


1-95903
VSergeySPB
2002-08-17 22:48
2002.08.29
Ошибка в Хелпе.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский