Hallo ich habe immer mit folgenden Code die Anzahl der Datensätze ausgelesen (bei ca. 30 Programmen, auf einmal funktioniert es nicht mehr. Ich bekomme immer die Fehlermeldung: Operator oder Semikolon fehlt; Inkompatible Typen: String und TTable
Hier der Code:
Delphi-Quellcode:
procedure TDataModule2.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
if Daten.State = dsBrowse
then ShowRecordNr
end;
procedure TDataModule2.ShowRecordNr;
var
aRecProps : RECProps;
begin
with Daten
do
begin
UpdateCursorPos;
Check(DBIGetRecord(
Handle, DBINoLock,
nil, @aRecProps));
with Form1
do
begin
StatusBar1.Panels[0].Text := Format('
Datensätze: %d', [RecordCount]);
end;
end;
end;
___
Ich habe auch unter USES die
BDE Unit eingetragen
Weiß jemand wo der Fehler steckt?
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]