Mit dieser Proc kann ich in meinem Programm die MaxRecords einer ADOTable ändern:
Delphi-Quellcode:
if Tab.TableName <> '
'
then
begin
try
Tab.Active := False;
Tab.MaxRecords := StrToInt(EditMaxRecords.Text);
Tab.Active := True;
LabelTabRecordCount.Caption := IntToStr(Tab.RecordCount);
except
on e :
Exception do
begin
ShowMessage(e.
Message);
end;
end;
end else
begin
ShowMessage('
Bitte öffnen Sie vorher eine Tabelle');
end;
Leider kann ich das ganze nicht wieder auf 0 zurücksetzen. Der lässt das einfach auf dem zu letzt eingegebenen Wert. Woran liegt das?