Daten aus Listbox in Array speichern.

[Jens Hartmann]

Was schreibt er denn für eine Exception

[Luckie]

Zitat:

Zitat von Muddy

Also sobald die Procedure bei der ausführung des Programms starte, dann kommt ein sobald er in die delete-procedure reingeht.

WAS kommt da? Meine Güte das kann doch nicht so schwer sein.

[Muddy]

Also Jens wenn das hier gemeint ist dann bittesehr:

Zitat:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00402A59 in module'Profect1.exe'. Write of adress 00000000'. Process stopped.

[Luckie]

Das sieht auf als wenn du auf nicht reservierten Speicher zu greifst.

Was ist denn Verkehr für ein Typ? Ein Objekt? Ein Record?

[Muddy]

Ein dynamisches Reccordarray. Weil ich es für unterschiedlich viele Eintäge nutzen will :)

[Jens Hartmann]

So viel wie ich weiß, musst Du dann auch eine Var. von deinem Record erstellen.

in etwa so...

Delphi-Quellcode:

var
  MeinVerkehr : TVerkehr;

Gruß Jens

[Luckie]

Nimm erst mal das komische with aus dem Quellcode. Dann kann man auch was erkennen.

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

[Luckie]

Dann mach das mal lokal. Warum muss das global sein. Oder zeig uns doch mal den globalen Code, der noch zu dem Code dazu gehört.

[Jens Hartmann]

Also sind Zeile und Anzahl Inhalte des Records Verkehr...