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;