Hallo,
Ich habe ein 34 + 35 ZeichenCode. Der Code wird in einem Edit eingelesen, dann zugewiesen. Der Aufbau,
if Timer1.Interval = 100 then
Edit1.SetFocus; Edit1.SelStart := +0; Edit1.SelLength := 9;
Edit2.Text:= Edit1.SelText;
if Timer1.Interval = 200 then
Edit1.SetFocus; Edit1.SelStart := +9; Edit1.SelLength := 6;
Table2.Edit;
Table2.FieldByName('BauDatum').ASString := Edit1.SelText;
Table2.Post;
usw...
DBEdit5.Field.EditMask := '!90/90/00;0;_'; // Feld für BauDatum
Meine Frage, geht’s auch ohne Timer wenn ja wie.
Mein Problem das zuweisen BauDatum, als DateTime. // weil ich nach Wochenangabe filtern möchte. Ich glaube ich stehe im Wald
und sehe keine Bäume mehr...
(DBEdit5.Text :=DateToStr(EnCodeDate(d,m,y)); ???)keine Ahnung wer kann mir helfen. Ich bin für jeden Tip dankbar.
mfg.Wolfgang
Ich habe ein 34 + 35 ZeichenCode. Der Code wird in einem Edit eingelesen, dann zugewiesen. Der Aufbau,
if Timer1.Interval = 100 then
Edit1.SetFocus; Edit1.SelStart := +0; Edit1.SelLength := 9;
Edit2.Text:= Edit1.SelText;
if Timer1.Interval = 200 then
Edit1.SetFocus; Edit1.SelStart := +9; Edit1.SelLength := 6;
Table2.Edit;
Table2.FieldByName('BauDatum').ASString := Edit1.SelText;
Table2.Post;
usw...
DBEdit5.Field.EditMask := '!90/90/00;0;_'; // Feld für BauDatum
Meine Frage, geht’s auch ohne Timer wenn ja wie.
Mein Problem das zuweisen BauDatum, als DateTime. // weil ich nach Wochenangabe filtern möchte. Ich glaube ich stehe im Wald
und sehe keine Bäume mehr...
(DBEdit5.Text :=DateToStr(EnCodeDate(d,m,y)); ???)keine Ahnung wer kann mir helfen. Ich bin für jeden Tip dankbar.
mfg.Wolfgang
Comment