Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Обращение к ТХТ [D6]

chainik © (2005-08-02 21:49:00)
Как обратиться к определенной строке в текстовом файле
Например: Считать с 3 по 7 строку?

Германн (2005-08-03 01:33:00) [1]
2 Anatoly Podgoretsky © (02.08.05 22:28) [6]

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

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

Mx (2005-08-02 22:53:00) [2]

> Defunct © (02.08.05 22:50) [10]

:)))

Defunct (2005-08-02 22:50:00) [3]
Mx © (02.08.05 22:38) [9]

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

Mx (2005-08-02 22:38:00) [4]

> Джо © (02.08.05 22:29) [7]

Респект! Я переменную "I" объявить забыл, а у тебя граница 5, а надо 6 ("по 7-ю")

Mx (2005-08-02 22:36:00) [5]

> 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;

Джо (2005-08-02 22:29:00) [6]

> [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;

Anatoly Podgoretsky (2005-08-02 22:28:00) [7]
Прочитать две - забыть
прочитать четыре - в мемо
закончить

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

Defunct (2005-08-02 22:12:00) [9]
Джо © (02.08.05 21:51) [2]

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

CHAINIK (2005-08-02 21:55:00) [10]
Файл без разницы какого размера!
Мне надо чтобы он считался построчно!
И желательно бы... Если знаешь...Какие-нибудь метки можно ставить в текстовом файле?

Fay (2005-08-02 21:51:00) [11]
2 chainik © (02.08.05 21:49)
Какого размера файл?

Джо (2005-08-02 21:51:00) [12]
Inc(Counter);
if (Counter >=3) and (Counter <= 7) then
ReadLn (Fv,S);
и все дела. Или используй TStringList.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »