Hallo Leute!
Ich bins nochmal, bin grad am aufräumen des Quelltextes und habe schon unnötige bzw. doppelte Variablen entfernt und habe jetzt folgendes Problem bin schon kurz vorm verzweifeln!
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var Jahr, Monat, Tag: word;
begin
SetLength(T, Length(T) + 1);
DecodeDate(DateTimePicker1.Date, Jahr, Monat, Tag);
T[Length(T)].J:=Jahr;
T[Length(T)].M:=Monat;
T[Length(T)].T:=Tag;
T[Length(T)].Zh:=Edit1.Text;
T[Length(T)].Zm:=Edit2.Text;
T[Length(T)].B:=Edit8.Text;
T[Length(T)].O:=Edit3.Text;
T[Length(T)].T1:=Edit4.Text;
T[Length(T)].T2:=Edit5.Text;
T[Length(T)].T3:=Edit6.Text;
T[Length(T)].T4:=Edit7.Text;
T[Length(T)].P:=IntToStr(p);
T[Length(T)].N:=RichEdit1.Text;
end;
Bei Form1.Show wird SetLength(T, 0) ausgeführt und er setzt auch nach jedem Klick Length(T) um eins nach oben wie gewollt..
ABER: Irgendwie haut das nicht hin, ich kann einen Eintrag (z.B. T[2].B) nur direkt nach dem erstellen ausgeben, sobald ich wieder einen neuen erstelle gibts er nichts ("") aus!
