ActiveDelphi

[tonton]

estou empacado no seguinte :
preciso verificar em uma tabela ,a quantidade de registros e me mostrar em um edit , e em um determinado campo verificar se existe a string ' aberta' e somar quantas existem é me mostrar em um edit , uso paradox . ou seja preciso que me mostre quantas palavra 'aberta' existe em uma tabela e me mostrar em edit .
nome da tabela :ss
campo onde a adcionado a string : situacaoss

se alguem poder me ajudar

[pr.delphi]

SS.CLOSE;
SS.OPEN;

COUNT := 0;


WHILE NOT SS.EOF DO BEGIN

IF SS.SITUACAOSS.VALUE = 'ABERTA' THEN COUNT:= COUNT + 1;

SS.NEXT;

END;

EDIT.TEXT := INTTOSTR(COUNT);

[tonton]

procedure TFrelageral.Button1Click(Sender: TObject);
var
count:integer;
begin
table.CLOSE;
table1.OPEN;

COUNT := 0;


WHILE NOT table1.EOF DO BEGIN

IF table1.Aberturass.VALUE = 'ABERTA' THEN COUNT:= COUNT + 1;

SS.NEXT;

END;

EDIT2.TEXT := INTTOSTR(COUNT);
end;

esta indicando erro no if

[tonton]

deculpe acertei o erro mo if
so que me retorna 0 no edit

[tonton]

Valeu amigão ja achei o meu erro , e que Aberta Esta em maicula e no prg e minuscula obrigadaooo

[pr.delphi]

me desculpe se estiver escrevendo besteiras.
mas se o codigo postado for o que vc esta utilizando,possui alguns erros

lá em cima tem um close, open em tabelas diferentes;

o next deve ser colocado na tabela em que se esta fazendo a consulta

mas se for soh representação a logica tah firmeza.

obs: ao inves de dar um close open assim fica melhor:
if not table1.active then table1.open;
table1.first;

blz?? faloww brother..