Поиск текста в файле

← →
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

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

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

Thenks

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

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