Hi MrSpock,
also, danke nochmal für den tip mit dem show, daran hats gelegen.
Und jetzt (welch frust) hänge ich schon wieder fest. also in meinen Augen ist das Programm fertig, bis auf ein paar Schutzmechanismen um falsche Datumsangaben zu verhindern, und das Programm lässt sich auch einwandfrei kompilieren, ABER: wenn ich versuche einen einen Datensatz für eine Fehlzeit zu erstellen schmiert das Proramm mit der Verlautbarung, dass eine EAccess Violation in irgendeiner speicherstelle vorliegt ab, welches ja noch nicht sooo schlimm wäre, gäbe es da nicht ein kleines Problem.
Undzwar bleibt der Programmzeiger nach dem absturz da sthen, wo ich den ID-Wert von der Karteikarte setzte. Die funktion schaut so aus:
Code:
procedure TForm2.Button1Click(Sender: TObject);
var id:integer;
begin
DateSeparator := '-';
ShortDateFormat := 'm/d/yyyy';
id:=4;
udaten.Karte.Person:=id; //hier ist der Programmzeiger stehengeblieben
udaten.Karte.von:=strtodate(form2.Edit1.Text);
udaten.Karte.bis:=strtodate(form2.Edit1.Text);
udaten.schreiben;
showmessage('hello');
end;
und die Karteikarte sieht so aus:
Code:
type
TUrlaub = record
Person : integer;
Von : TDate;
Bis : TDate;
end;
Ich habe in der Funktion einfach mal eine feste Zahl genommen, um anderen Fehlern vorzubeugen.
Kann es sein, dass integer ein nicht unterstützer Typ für Records ist? Anders kann ich mir das nämlich nicht vorstellen.
Also: Plz Help a noob!
MFG
LANJAN