[Кодер]

Удаляю с файла строку..а она не удаляеться

Код:

var
s1:string;i:integer;
f:TStringList;k:boolean;
begin
f:=TStringlist.create;
f.loadfromfile('data\Слипин Михаил.tbase');
i:=0;k:=false;s1:='222';
while k<>false do
  begin
  if s1=f.strings[i] then
    begin
    f.delete(i);
    f.SaveToFile('data\Слипин Михаил.tskbase');
    f.Free;
    k:=true;
    end;
  inc(i);
  end;

В файле всё норм(проверил)

[Phedor]

Сообщение от Неподарок

Удаляю с файла строку..а она не удаляеться

Код:

var
s1:string;i:integer;
f:TStringList;k:boolean;
begin
f:=TStringlist.create;
f.loadfromfile('data\Слипин Михаил.tbase');
i:=0;k:=false;s1:='222';
while k<>false do
  begin
  if s1=f.strings[i] then
    begin
    f.delete(i);
    f.SaveToFile('data\Слипин Михаил.tskbase');
    f.Free;
    k:=true;
    end;
  inc(i);
  end;

В файле всё норм(проверил)

Цикл проверь. Назначаешь k := false; а потом пока k<>false ... он у тебя никогда не выполняется (поставь while not k do ...).
Кстати, f.Free поставь после цикла, иначе если строка не найдется, у тебя ресурсы не освободяться.

[xchrom]

while k<>false do - у вас ни разу в цикл не войдет, т.к. k инициализирована false

[Кодер]

Спс)Благодарен