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

Поиск текста в файле   Найти похожие ветки 

← →
zamkom   (2004-01-19 17:07) [0]

Господа мастера. Какой функцией можно найти строку в текстовом файле и установить на него указатель. Конечно можно в цикле перебрать все строчки и каждую сравнить с искомой но наверное можно как нибудь иначе решить этот вопрос.

---

← →
zamkom   (2004-01-19 17:14) [1]

Ну же мастера где же вы.

---

← →
alex_*** ©   (2004-01-19 17:16) [2]

ну а как еще? от перебора не уйдешь

---

← →
Anatoly Podgoretsky ©   (2004-01-19 17:18) [3]

Последовательно, такова природа текстовых файлов, но это только найти, а чтобы установить то придется опять с начала перечитовать, но только что ты будешь дальше делать то?

---

← →
zamkom   (2004-01-19 17:21) [4]

конечно этот код работает но нельзя ли его как нибудь оптимизировать и заменить всего одной функцией.
While not EOF(Vf) do
begin
readln(vf,s);
if s="получилось" then label1.Caption:="получилось";
end

---

← →
Anatoly Podgoretsky ©   (2004-01-19 17:24) [5]

Можно, но придется добавить три строчки

Procedure Name;
begin
Твой код
end;

---

← →
alex_*** ©   (2004-01-19 17:25) [6]

попробуй в TStringList загрузить (LoadFromFile)... Может быстрее будет

---

← →
zamkom   (2004-01-19 17:28) [7]

Понятно, тогда еще один вопрос: как прервать While цикл досрочно.

---

← →
Palladin ©   (2004-01-19 17:28) [8]

break

---

← →
Amoeba ©   (2004-01-19 17:29) [9]

И далее вызвать метод Find

---

← →
zamkom   (2004-01-19 17:29) [10]

Thenks

---

← →
Amoeba ©   (2004-01-19 17:31) [11]

[6]+[9] - самое простое и быстрое решение

---

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

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



Память: 0.47 MB
Время: 0.02 c