Обращение к ТХТ

← →
chainik © (2005-08-02 21:49) [0]

Как обратиться к определенной строке в текстовом файле
Например: Считать с 3 по 7 строку?

← →
Fay © (2005-08-02 21:51) [1]

2 chainik © (02.08.05 21:49)
Какого размера файл?

← →
Джо © (2005-08-02 21:51) [2]

Inc(Counter);
if (Counter >=3) and (Counter <= 7) then
ReadLn (Fv,S);
и все дела. Или используй TStringList.

← →
CHAINIK © (2005-08-02 21:55) [3]

Файл без разницы какого размера!
Мне надо чтобы он считался построчно!
И желательно бы... Если знаешь...Какие-нибудь метки можно ставить в текстовом файле?

← →
Defunct © (2005-08-02 22:12) [4]

Джо © (02.08.05 21:51) [2]

Ээээ.. а кто отпозиционирует файловый указатель на 3-ю строку? Грибоедов? :)

← →
CHAINIK © (2005-08-02 22:17) [5]

Ну хорошо! Файл маленький 5 Кбайт! Устроит такой расклад?
Смысл-то в чтении...
Вот представь...
Файл 1.txt
1:Forto
2:Porto
3:MUSIK4:PUSIK
5:LAMER
6:BANNER
7:HALYAVA
Так вот мне-то надо вставить то что жирным шрифтом в MEMO?
Вопрос: КАК?

← →
Anatoly Podgoretsky © (2005-08-02 22:28) [6]

Прочитать две - забыть
прочитать четыре - в мемо
закончить

← →
Джо © (2005-08-02 22:29) [7]

> [4] Defunct © (02.08.05 22:12)
> Грибоедов? :)

Не, Пушкинд :) Имел в виду, конечно же, while.

> [5] CHAINIK © (02.08.05 22:17)

procedure TForm1.Button1Click(Sender: TObject);
var
Lst: TStrings;
I: Integer;
begin
Lst := TStringList.Create;
try
Lst.LoadFromFile("d:\myfile.txt");
for I := 2 to 5 do
Memo1.Lines.Add(Lst[I]);
finally
Lst.Free;
end;
end;

← →
Mx © (2005-08-02 22:36) [8]

> CHAINIK © (02.08.05 22:17) [5]

Ну правильно тебе Джо © написал: используй TStringList:

var L: TStringList; begin L := TStringList.Create; try L.LoadFromFile(Файл из которого надо считать); for I := 2 to 6 do Memo(в который надо вставить).Lines.Insert(позиция куда надо вставить, L[I]); finally L.Free; end; end;

Mx © (02.08.05 22:38) [9]

Дык, это все потому что CHAINIK цифру 4 пропустил, Джо сделал как раз для четырех строк начиная с третьей ;>

2 Anatoly Podgoretsky © (02.08.05 22:28) [6]

Это "сухая" выжимка из Ваших уроков на ЛикБез"е Королевства? :)

Может все-таки стоит держать где-то под рукой ссылки на Ваши с Юрием уроки на Королевстве. Может кто-нибудь из спрашивающих их прочтет и количество дурных вопросов уменьшится! :(

Обращение к ТХТ Найти похожие ветки