Deutsches Lazarusforum

Hallo chrisTG
bist Du schon darauf gekommen woran es liegt?
Beste Grüsse argos

Hallo,
ich habe seit kurzem ein ähnliches Problem seit ich win7 64 bit neu installiert habe.
Das Lazerusprogramm startet und arbeitet normal nur manchmal bekomme ich beim schliessen folgende Meldung : An unhandles exception occured at $xxxxxxxx
EAccesViolation $ xxxxxxxx und zwar in meinem fall 19 ...

Hallo
danke für die Antwort.
StartOf theYear(Date) gibt den Jahresanfangswert von einer TDateTimeVar zurück. zB.1.1.2010
EndOftheYear(Date) = dann 31.12.2010 und YearOf(Date) = zB 2010
Das sind Datumsfunktionen von Lazarus.
JahrTable = TDBf.
Mein System Windows 7 64 Bit. LazVers. lazarus-0.9.28.2 ...

habe es anders gelöst. in OnFilterRecord
Danke
Argos
Obwohl ich schon gerne gewusst hätte wie es mit SetRange funkioniert.

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
try
if Button = btNext then fDatum := IncYear(fDatum,1);
if Button = btPrev then fDatum := IncYear(fDatum,-1);
finally
ZeigeJahr;
end;
end;

procedure TForm1.ZeigeJahr;
begin
try
with JahrTable do begin
Open;
IndexName ...

Danke Dir für die rasche Antwort .
Leider tritt der Fehler auch mit der Version lazarus-0.9.28.2-fpc-2.2.4-win64.exe auf.
argos

Hi,
der Compiler gibt die Fehlermeldung ' duplicate identfier' aus.
bei der proc. TabControl1DrawTab(.....;active : Boolean);
Identifier already defind in unit Forms at line 569.
Die proc wird automatisch generiert durch OnDrawTab. Im project bin ich aber noch weit entfernt von Zeile 569 und ein ...

Habe das Buch vor 1 Woche bekommen. Es ist sehr informativ !
Danke