Топ Кодеры в тему ;c

[fenum]

Нужна такая вещь

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

 

[AnGel]

var
i: Integer;
//baza: TStringList;

begin
for I := 0 to baza.Count-1 do
  if (Pos('[NotPass', baza[i])<>0) then baza.delete[i];

 

[fenum]

@AnGel ругается
@bilka00 говорю же, не пашет baza.delete =(

 

[AnGel]

@Cereqa, дай мне код ошибки

 

[fenum]

@AnGel актуал парметр

 

[AnGel]

procedure TForm1.sButton1Click(Sender: TObject);
var base: TStringList; i: Integer;
begin
base:=TStringList.Create;
sMemo1.Clear;
sOpenDialog1.FileName:='';
sOpenDialog1.Filter:='base|*.txt';
if sOpenDialog1.Execute then
begin
   base.Clear;
   base.LoadFromFile(sOpenDialog1.FileName);
end;

for I:=0 to base.Count-1 do
   if (Pos('[NotPass', base[i])<>0) then base.Delete(i);

sMemo1.Lines.Add(base.Text);
FreeAndNil(base);
end;

Подобное будет у тебя работать.

 

[fenum]

Проблема решена xD
(Pos('PassNot',accs)=0)