Probleme mit copy

[sebastian_buege]

Hallo Leute ich habe folgendes vor:
Der Nutzer soll ein datum aus einem TimePicker und eine Uhrzeit aus einer DropdownListe auswählen. beides wird in einer Listbox dargestellt.
Format :
DD.MM.YYYY HH:MM - HH:MM
Beispiel
05.07.2007 10:01 - 10:45

nun möchte ich diese Einträge auswerten. dazu lese ich alle Einträge aus un d zerlege sie.
Eigentlich klappt alles recht gut nur bei der Zeit habe ich so meine Probleme:

Code:

Trim(copy(zeiten.Items[i],12,5));

Damit lese ich die erste Zeit aus .
Als Resultat bekomme ich immer 10:0118.
Ich kann mir das nicht erklären. habe auch schon versucht die anzahal der stellen zu verringern, die kopiert werden sollen. aber es kommt immer das gleiche Resultat heraus.

Vielen dank
für die Hilfe

[DeddyH]

Bei mir funktioniert es. Zeig doch mal, wie Du die Listbox befüllst und die Schleife, in der Du sie ausliest.

[sebastian_buege]

Also die List Box fülle ich mit :

Delphi-Quellcode:

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.

[DeddyH]

Also, wenn ich kommen.Text kein Blödsinn eingegeben wird, kann ich die Ursache leider auch nicht entdecken.

[sebastian_buege]

Kommen und Gehen werden wie folgt gefüllt:

Delphi-Quellcode:

         j:=0;
          repeat

               if i < 10 then
               begin
                    if j < 10 then
                    begin
                         kommen.Items.Add(Trim('0'+IntToStr(i)+':'+ '0'+IntToStr(j)));
                         gehen.Items.Add(Trim('0'+IntToStr(i)+':'+ '0'+IntToStr(j)));
                    end
                    else
                    begin
                         kommen.Items.Add(Trim('0'+IntToStr(i)+':'+IntToStr(j)));
                         gehen.Items.Add(Trim('0'+IntToStr(i)+':'+IntToStr(j)));
                    end;
               end
               else
               begin
                    if j < 10 then
                    begin
                         kommen.Items.Add(Trim(IntToStr(i)+':'+ '0'+IntToStr(j)));
                         gehen.Items.Add(Trim(IntToStr(i)+':'+ '0'+IntToStr(j)));
                    end
                    else
                    begin
                         kommen.Items.Add(TRim(IntToStr(i)+':'+IntToStr(j)));
                         gehen.Items.Add(Trim(IntToStr(i)+':'+IntToStr(j)));
                    end;
               end;

               j:=j+1;
          until j > 59;

Und es sieht auch richtig aus

[sebastian_buege]

Habe den Fehler gefunden:War beim Auslesen:
ich habe mir den String nicht richtig zusammengestzt.