Daten aus Listbox in Array speichern.

[Muddy]

Habe ich schon.. alles Global schon passier -.-'

Deshalb die variable Verkehr!!

Delphi-Quellcode:

type TRVerkehr = record
      Datum:string[10];
      anzahl:integer;
end;

type TVerkehr = array of TRVerkehr;

var Verkehr: TVerkehr;

{$R *.dfm}

procedure TForm1.DateiinListboxeinlesen1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
  listbox1.Items.LoadFromFile(OpenDialog1.FileName);
end;

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];
          
          Vposition:= pos('/',zeile);
          datum := copy(zeile,1,Vposition-1);
          delete (zeile,1,Vposition);
          
          anzahl:= strtoint(zeile);
          inc(zaehler);
        end;
    end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  zaehler:=0;
end;