AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Probleme mit copy

Ein Thema von sebastian_buege · begonnen am 11. Jul 2007 · letzter Beitrag vom 11. Jul 2007
Antwort Antwort
sebastian_buege

Registriert seit: 5. Mär 2007
58 Beiträge
 
Delphi 6 Personal
 
#1

Probleme mit copy

  Alt 11. Jul 2007, 09:35
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
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.617 Beiträge
 
Delphi 12 Athens
 
#2

Re: Probleme mit copy

  Alt 11. Jul 2007, 09:42
Bei mir funktioniert es. Zeig doch mal, wie Du die Listbox befüllst und die Schleife, in der Du sie ausliest.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
sebastian_buege

Registriert seit: 5. Mär 2007
58 Beiträge
 
Delphi 6 Personal
 
#3

Re: Probleme mit copy

  Alt 11. Jul 2007, 09:48
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.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.617 Beiträge
 
Delphi 12 Athens
 
#4

Re: Probleme mit copy

  Alt 11. Jul 2007, 09:51
Also, wenn ich kommen.Text kein Blödsinn eingegeben wird, kann ich die Ursache leider auch nicht entdecken.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
sebastian_buege

Registriert seit: 5. Mär 2007
58 Beiträge
 
Delphi 6 Personal
 
#5

Re: Probleme mit copy

  Alt 11. Jul 2007, 09:56
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
  Mit Zitat antworten Zitat
sebastian_buege

Registriert seit: 5. Mär 2007
58 Beiträge
 
Delphi 6 Personal
 
#6

Re: Probleme mit copy

  Alt 11. Jul 2007, 11:44
Habe den Fehler gefunden:War beim Auslesen:
ich habe mir den String nicht richtig zusammengestzt.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz