to Imikle
Мне кажеться, Вы его неправильно поняли. Ему нужно найти строку "Data3" в текстовом файле и удалить её. Вот и всё. Это делается вот так:
Код:
var SomeFile:TStringList;
i:Integer;
begin
SomeFile:=TStringList.Create;
SomeFile.LoadFromFile('SomeFile');
for i:=0 to SomeFile.Items.Count-1 do begin
if SomeFile.Items.Strings[i]='Data3' then
SomeFile.Items.Delete(i);
end;
SomeFile.Free;
ЗЫ. Писал по памяти.