Daten aus Listbox in Array speichern.

[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;