RecordCount Problem

**Franz100**

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:

zusammenfalten · markieren

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]

RecordCount Problem

RecordCount Problem

Forumregeln