Probleme mit copy

[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