Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
ВнизПоиск текста в файле Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c