Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Добавляет запись в файл

Код:

var
 SL: TStringList;
begin
 Sl:=TStringList.Create;
 if FileExists('myfile.txt') then SL.LoadFromFile('myfile.txt');
 SL.Add('Text');
 SL.SaveToFile('myfile.txt');
 SL.Free;
end;

Чтобы сделать поиск, нужно просто загружать весь файл в
переменую

Код:

 
SL.LoadFromFile('myfile.txt');

и потом проверять наличие нужного тебе номера в каждой строчке

Код:

 
if SL.Strings[nomerstroki]='Text' then...;