Цитата:
Сообщение от Неподарок
Удаляю с файла строку..а она не удаляеться
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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 поставь после цикла, иначе если строка не найдется, у тебя ресурсы не освободяться.