Fórum como mostrar em uma label #148934

[quote:9a8b96c557=´wesley francisco´]gostaria de uma dica sobre como posso colocar quantos registros eu tenho cadastrado em uma tabela de clientes :
Exemplo: registros 1:30 ou 1/30

Desde ja agradeço,


Um abraço


Wesley[/quote:9a8b96c557]

Function Recno(Dataset: TDataset): Longint;
var
CursorProps: CurProps;
RecordProps: RECProps;
begin
Result := 0;
with Dataset do begin if State = dsInactive then DBError(SDataSetClosed);
Check(DbiGetCursorProps(Handle, CursorProps));
UpdateCursorPos;
try
Check(DbiGetRecord(Handle, dbiNOLOCK, nil, @RecordProps));
case CursorProps.iSeqNums of
0: Result := RecordProps.iPhyRecNum; { dBASE }
1: Result := RecordProps.iSeqNum; { Paradox }
end;
except on EDBEngineError do
Result := 0;
end; end; end;


Label1.Caption := IntToStr(RecNo(TABELATAL))+´/´+IntToStr(TABELATAL.RECORCOUNT-1)

Se sua tabela for paradox:

Label1.Caption := Format(´Registro ¬.d de ¬.d´,[Tabela.RecNo,Tabela.RecordCount]);