точна найти и удалить

[mr_xxx]

Привет всем
всегда мне помогали за это спасибо
снова нужна помощ

допустм еть текставой файл содержащий :


hello my name is Michael Jackson 1546
tralalala lololodlo traloflaoads 123456
asdkmadsnjadsnj sdnjasnjasdnj
123456
tekdsmkmdf 4848448
asdsadskm123456
123456
asdmklsmadklnk

тепер нужно найти и удалить 123456
но не те строки где есть 123456 а нужно удалить ту строку где только 123456 в моем примере это 4ая и 7ая строка

текста у меня поным полно нужна найти и удалить строку где строка состоит только из 123456 а не типа tralalala lololodlo traloflaoads 123456

ЗАРАНЕЕ всем спасибо

[FaTaL]

for i := TStringList.Count-1 downto 0 do
  begin
    if TStringList.Strings[i] = s then
      TStringList.Delete[i];
  end;

Где s - искомая строка.

[eval]

это чертовски сложно, наверное надо во фриланс написать с премией в 10000 EUR

[Розетко]

Вот процедура.

procedure FoundAndDelete(FileName, Word:string);
var
 F:TStringList;
 I: integer;
 res: string;
begin
 F:=TStringList.Create;
 F.LoadFromFile(FileName);
 for i := F.Count-1 downto 0 do
  begin
    if F.Strings[i] = Word then
      F.Delete(i);
  end;
 F.SaveToFile(FileName);
 ShowMessage('Осталось: '+IntToStr(F.Count)+' строк');
 F.Free;
end;

Пример использования

FoundAndDelete('D:/Text Document.txt','123456');

[mr_xxx]

всем огромное спасибо всем тем КТО ПОМОГ

eval что так сложна помочь? вместо того чтобы помочь пишешь всякую чуш