Developing.ru

Код: Выделить всё

var
  s1, s2, s3: string;
  a, b: Integer;
  TSL: TStringList;
begin
  // Что ищем
  s2 := '007';
  // Чем заменяем
  s3 := '***';
  
  TSL := TStringList.Create;
  TSL.LoadFromFile('test.txt');

  b := 0;

  for a := TSL.Count - 1 downto 0 do
  if s2 = trim(TSL[a]) then
  begin
    TSL.Strings[a] := s3;
    b := b + 1;
  end;

  if b = 0 then Label1.Caption := 'Совпадений не найдено' else Label1.Caption := 'Произведено ' + IntToStr(b) + ' замен "' + s2 + '" на "' + s3 + '"';
  TSL.SaveToFile('test1.txt');
  TSL.Free;