Probleme mit copy

[sebastian_buege]

Also die List Box fülle ich mit :
zeiten.Items.Add(DateToStr(datum_zeit.DateTime)+' '+ kommen.Text+' - '+gehen.Text); Zu Auslesen ist etwas mehr notwendig :

Delphi-Quellcode:

 sql1:='INSERT INTO kommen (tag,monat,jahr,begin,karten_nr,ersteller) values';
               sql1:=sql1+'('+Trim(copy(zeiten.Items[i],0,2))+','+TRim(copy(zeiten.Items[i],4,2))+','+TRim(copy(zeiten.Items[i],7,4))+',';
               sql1:=sql1+Trim(copy(zeiten.Items[i],12,4));
               sql1:=sql1+karten_id+',';
               sql1:=sql1+''''+PZE.nutzer+''')';

Bitt nicht an den aneren Sachen stören die sind notwendig.