Скачать: CL | DM;

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

← →
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 ©   (2005-08-02 22:38) [9]

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

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

---

← →
Defunct ©   (2005-08-02 22:50) [10]

Mx ©   (02.08.05 22:38) [9]

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

---

← →
Mx ©   (2005-08-02 22:53) [11]

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

:)))

---

← →
Германн ©   (2005-08-03 01:33) [12]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.023 c