|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с текстовыми файлами
даны два текстовых файла. проверить содержится ли второй текстовый файл в первом
если я правильно понимаю,то мне будет удобнее вывести файлы в многострочный компонент,а потом их построчно сравнивать? или можно сразу считывать и сравнивать? если да, то подскажите как,ранее с двумя текстовыми файлами одновременно не работал подскажите как лучше,реализовать сам попробую |
#2
|
||||
|
||||
Код:
Var File1, File2: TStringList; begin File1 := TStringList.Create; File2 := TStringList.Create; try File1.LoadFromFile('c:\1.txt'); File2.LoadFromFile('c:\2.txt'); if Pos(File2.Text, File1.Text) > 0 then ShowMessage('Содержится'); finally File2.Free; File1.Free; end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |