[Cracer]

Доброго времени суток уважаемые!

Положение:
Есть файл со строками вида "23859y2jb2uh" одинаковой длинны (файл загружен в Memo2);
Есть строка в Memo2, вида "Fnjdifsi" (строка известна);

Задача:
Получить порядковый номер строки (по тексту) и удалить ее.

Рассчитываю на вашу помощь

[NIch]

Как то так

procedure TForm1.Button1Click(Sender: TObject);
var
i : word;
s : string;
begin
s := 'kdfklljk';
for i := 0 to Memo1.Lines.Count-1 do
if Memo1.Lines.Strings[i] = s then
Memo1.Lines.Delete(i);
end;

[Cracer]

NIch,
Большое спасибо