Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

POS   Найти похожие ветки 

 
Metotrone   (2002-09-22 18:12) [0]

Как произвести операцию Pos(Edit1.Text,f);
если f:TextFile, а не string


 
Song   (2002-09-22 18:14) [1]

Прочитать содержимое файла в строку.


 
Metotrone   (2002-09-22 18:20) [2]

Это цикл ?
А другого матода нет ?


 
Song   (2002-09-22 18:44) [4]

Не надо цикл. Можно просто воспользоваться TStringList.LoadFromFile()


 
Metotrone   (2002-09-22 18:50) [5]

Этоо как ?
Можно подробнее Please...


 
Song   (2002-09-22 18:58) [6]

With TStringList.Create Do
try
LoadFromFile("MyFile.txt");
t:=Pos(Text,Edit1.Text);
IF t>0 then ShowMessage("Слово "+Edit1.Text+" находится в файле с позиции "+IntToStr(t)) else ShowMessage("Поиск неудачен");
finally
Free;
end;


Ну когда не нужно будет писать такую ерунду? Когда люди научатся пользоваться хэлпом?


 
Song   (2002-09-22 18:59) [7]

В Pos параметры поменяйте местами.


 
Metotrone   (2002-09-22 19:04) [8]

Thanks


 
PVOzerski   (2002-09-23 01:36) [9]

Если файл очень больщой, такой подход может привести к неоправданно большому расходу памяти. Ощутимо более медленная, но "экономичная" альтернатива - использование blockread, seek, pos и filepos: открываем файл как нетипизированный с длиной записи =length(Edit1.Text), считываем, сравниваем, возвращаемся на исходную позицию+1... Процесс можно значительно убыстрить, если считывать больше длины строки, но тогда надо после каждого сравнения переходить на позицию в файле Исходная_Позиция+Длина_прочитанного_блока-Длина_строки+1. В случае успешного нахождения точка входа определяется как результат FilePos + результат Pos.



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

Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-8004
Mazenrat
2002-09-20 15:17
2002.10.03
StrToInt и IntToStr без sysutils.


7-8184
harismatik
2002-07-25 15:36
2002.10.03
Как сделать?


1-8028
Porolonchick
2002-09-20 16:07
2002.10.03
TreeView.


14-8178
Con
2002-09-07 08:18
2002.10.03
TQuery


6-8103
ga3
2002-08-01 04:07
2002.10.03
насчет конфигурации IE





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский