Hey Leute, ich bins mal wieder.
Ich suche ungefährt so einen code:
Code:
If Abfahrt.Text < Ankunft.text then Abfahrt 1 Tag später
Und dann soll es im Array eingetragen werden...
Also mein 2. Problem wenn ich den Code dann habe, wo genau muss ich den einfügen, hier mein Code:
Code:
procedure TForm1.Add;
var
rec_p : PBusEintrag;
begin
rec_p := Nil; // Init mit nichts
new (rec_p);
if Verspätung.Text = '' then Verspätung.Text:= '0';
//neuen Eintrag in Array eintragen
rec_p^.Linie:=Linie.Text;
rec_p^.Ziel:=Ziel.Text;
rec_p^.Ankunft:=StrToDateTime(Ankunft.Text);
rec_p^.Abfahrt:=StrToDateTime(Abfahrt.Text);
rec_p^.Verspätung:=StrToDateTime(Verspätung.Text);
SetLength(Liste, (length(Liste)+1));
Liste[high(Liste)]:= rec_p;
end;