|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
TStringList - не удаляет
Удаляю с файла строку..а она не удаляеться
Код:
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; В файле всё норм(проверил) |
#2
|
|||
|
|||
Цитата:
Цикл проверь. Назначаешь k := false; а потом пока k<>false ... он у тебя никогда не выполняется (поставь while not k do ...). Кстати, f.Free поставь после цикла, иначе если строка не найдется, у тебя ресурсы не освободяться. |
#3
|
|||
|
|||
while k<>false do - у вас ни разу в цикл не войдет, т.к. k инициализирована false
|
#4
|
|||
|
|||
Спс)Благодарен
|