Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
26. Jun 2003, 14:49
Wenn, dann ganz...
Code:
procedure TfrmKorrekrurbelicht.FormShow(Sender: TObject);
begin
[color=#ff0000]try[/color]
Label1.Caption := IntToStr(datModulAusgabe.qryMKorrekturFirmenAnschriften.RecordCount);
[color=#ff0000]except
on E: Exception do ShowMessage('Fehler: ' + E.Message);
end;[/color]
end;
... ...
Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
|