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:

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]

[omata]

Moin,

in welcher Zeile tritt der Fehler auf?
Der Compiler kann das Programm nicht erstellen? -> Kommentiere doch mal Zeilen aus.
Kommt RecordCount aus Daten? Was ist Daten?

Ein bißchen mehr Information kann nicht schaden...

MfG
Thorsten

[Franz100]

Hallo,

der Fehler tritt hier auf:
StatusBar1.Panels[0].Text := Format('Datensätze: %d', [RecordCount]);

zwischen Format( UND 'Daten..

mit der Meldung: Operator oder Semikolon fehlt; Inkompatible Typen: String und TTable


Daten ist die Table (ist aber egal ob ich es bei Table1 oder auf Daten ändere, der Fehler ist immer da)

Nur in allen anderen Programmen funktioniert dieser Code ohne Probleme?

[marabu]

Hallo Franz,

du musst vorsichtiger sein mit deinen WITH-Blöcken. Da scheint ein Dataset mit Namen Format zu existieren. Verwende mal direkt SysUtils.Format().

Grüße vom marabu