Daten aus Listbox in Array speichern.

[Muddy]

Hallo Leute Ich möchte ein in einem Programm aus der Listbox Daten in ein Array peichern, aber leider kommt es dabei ständig zu einem Problem

Delphi-Quellcode:

procedure TForm1.EIntrgeListboxinAraybernehmen1Click(Sender: TObject);
var Vposition:integer;
    zeile,buffer: String;
begin
  while zaehler <> listbox1.Count-1 do 
    begin
      with Verkehr[zaehler] do
        begin
          zeile:=listbox1.Items[zaehler]; //inhalt von Zeile '10.03.2010/12943'
          Vposition:= pos('/',zeile);
          datum := copy(zeile,1,Vposition-1);
          delete (zeile,1,Vposition);  
          anzahl:= strtoint(zeile);
        end;
    end;
end;

Bitte um Hilfe

[Luckie]

Zitat von Muddy:

aber leider kommt es dabei ständig zu einem Problem

Ist ja interessant. Verräts du uns auch zu welchem?

Und eine kurze Erläuterung zu den Variablen und deinem Code wäre auch nicht schlecht. So kann man nur raten, was du versuchst zu tun.

[Muddy]

Zur weiteren Erklärung
Ich weiß nicht wo das Problemm genau liegt. Aber der Programmablauf verläuft folgender maßen:
ACh ja Die Variable 'Verkehr' ist ein dynamisches array mit einem record Datentyp

Delphi-Quellcode:

{In der Listbox befinden sich ein Daten(Datum) und ein zahlenwert getrennt durch ein '/'
und ich möchte diese beiden getrennt in ein array speichern.}

{1. Inhalt der erstel Zeile von der Listbox wird in zeile reingeschreiben
 2.Jetzt wird das in die variable datum die Strings von der ersten bis zur position von 
 '/' reingeschrieben
 3.Hier wird in der zeile das Datum mit dem '/' gelöscht sodass nurnoch eine Zahl drinsteht}

procedure TForm1.EIntrgeListboxinAraybernehmen1Click(Sender: TObject);
var Vposition:integer;
    zeile: String;
begin
  while zaehler <> listbox1.Count-1 do
    begin
      with Verkehr[zaehler] do
        begin
          zeile:=listbox1.Items[zaehler];  //1.
          
          Vposition:= pos('/',zeile);      
          datum := copy(zeile,1,Vposition-1);//2.
          delete (zeile,1,Vposition); //3.
          
          anzahl:= strtoint(zeile);
        end;
    end;
end;

[markus5766h]

Hallo,

fehlt da nicht ein

Delphi-Quellcode:

var
  zaehler : Integer;

und am Ende der Prozedur

inc(zaehler) // oder dec(zaehler) ??

[Muddy]

Ja das stimmt, aber er Merkert ja schon bei der löschen procedure

[Luckie]

Zitat von Muddy:

Ich weiß nicht wo das Problemm genau liegt.

Aber du weißt, dass der Code ein Problem verursacht? Dann beschreibe uns doch einfach mal das Problem. Kommt eine Fehlermeldung? Macht der Code nicht das, was er soll? Lass dir doch bitte nicht alles aus der Nase ziehen.

Zitat von Muddy:

Ja das stimmt, aber er Merkert ja schon bei der löschen procedure

Die Fehlermeldung kennt mein Delphi nicht. Es kann doch nicht so schwer sein, die genaue Fehlermeldung zu nennen.

[Jens Hartmann]

Er müsste eigendlich früher meckern, weil die Var. "Zaehler" gar nicht erst bekannt ist.

Gruß Jens

[Luckie]

Könnte global sein. Des Wegen will ich ja mehr Infos.

[Jens Hartmann]

Wäre aber global etwas seltsam. Oder?

Gruß Jens

[Muddy]

Also sobald die Procedure bei der ausführung des Programms starte, dann kommt ein sobald er in die delete-procedure reingeht. BIn schon mehrfach mit dem Debugger durch und finde das problem einfach nicht..

Und der zaehler ist global deklariert ^^