datensatznummer und anzahl der gefundenen datensätze

[markus lemcke]

tach,

vorraussetzung:
Delphi 1, paradoxdatenbanken!

aus einem buch habe ich folgende lösung zur ermittlung der aktuellen datensatznummer:

<pre>
procedure TFrmAbschlagszahlungsliste.query1Source2DataChange (
Sender: TObject; Field: TField);
var
recnr:longint;
begin
if Table1Azliste.active = false then Table1Azliste.open;
Table1Azliste.findkey([Query1Azliste.Fieldbyname('lfnr').AsString]);
if Query1Azliste.state = dsInactive then
begin
MessageBeep(0);
exit;
end;
Query1Azliste.UpDateCursorPos;
DbiGetSeqNo(Query1Azliste.Handle, recnr);
label13.caption := IntToStr(recnr);
end;
</pre>

hat bisher immer getan, aber bei meinem neuen azlistenfenster tut es nicht mehr wund ich weis nicht warum!
hat jemand ne idee?

und die anzahl der gefundenen datensätze der query mit recordcount anzeigen tut mal ujnd mal nicht!

woran kann das liegen?

gruß

markus

[Peter Mögenburg]

Gibts bei Delphi 1 kein <b>RecNo</B> ?

Wenn doch, könnte es doch auch wie folgt lauten

<PRE>
procedure TFrmAbschlagszahlungsliste.query1Source2DataChange (
Sender: TObject; Field: TField);
begin
with Query1Azliste do
begin
if Table1Azliste.active = false then Table1Azliste.open;
Table1Azliste.findkey([Fieldbyname('lfnr').AsString]);
if state = dsInactive then
begin
MessageBeep(0);
exit;
end;
label13.caption := IntToStr(RecNo);
end;
end;
</PRE>
&#10

[markus lemcke]

woher komm das recno?
ist das einfach so da oder wie?

gruß

marku

[Peter Mögenburg]

Ich verstehe die Frage nicht ganz. RecNo bezieht sich auf die Abfrage <b>Query1Azliste</b> (siehe: with Query1Azliste do). Natürlich wäre folgender Code auch möglich.

<PRE>
procedure TFrmAbschlagszahlungsliste.query1Source2DataChange (
Sender: TObject; Field: TField);
begin
if Table1Azliste.active = false then Table1Azliste.open;
Table1Azliste.findkey([Query1Azliste.Fieldbyname('lfnr').AsString]);
if Query1Azliste.state = dsInactive then
begin
MessageBeep(0);
exit;
end;
label13.caption := IntToStr(Query1Azliste.RecNo);
end;
</PRE>

Gruss

Pete

[markus lemcke]

ist RecNo ein feld(=spalte) oder eine eigeschaft

[Peter Mögenburg]

<b>RecNo</b> ist ebenso wie <b>RecordCount</b> eine Eigenschaft von TTable, bzw. TQuery. Ich weiß aber nicht, ob diese unter Delphi 1 zur Verfügung steht.

Gruß

Pete

[markus lemcke]

habe gerade in der hilfe geschaut, die weiß nichts von recno!

gruß

marku