Probleme beim Speichern/ Einlesen von 2 dynamischen Arrays

[TheBluescreen]

Hi!

Ich bins nochmal (zum 3. Mal weil der Internetexplorer 3mal abge**** ist und ich alles nochmal tippen muss :wall: :evil: :x ). Ich habe ein Problem beim Speichern und auslesen 2er dynamischen Arrays in einer Datei. Es erscheint folgende Fehlermeldung: "Project1 Project1.exe raised exception class EStringListError with message 'List index out of bounds(9)'....". Ich hoffe mir kann geholfen werden.

MfG und vielen Dank im Vorraus!

Bluescreen

Hier der Quellcode.. ich hoffe ihr könnt etwas damit anfangen.. ansonsten schreib ich noch ein paar Erklärungen rein

Delphi-Quellcode:

  TWord1 = array of string;           
  TWord2 = array of string; 
//*************************
var
  Vocab1: TWord1;
  Vocab2: TWord2;
  i: integer;                       //i= Länge der dyn. Arrays
//**************************
procedure TForm1.B_SaveClick(Sender: TObject);
var StrList: TStrings;
    y: integer;
begin
  if SaveDialog1.Execute then begin
    StrList := NIL;
    try
      StrList := TStringList.Create;
      StrList.Add(inttostr(i));
      for y:=1 to i-1 do begin
        StrList.Add(vocab1[y]);
      end;
      for y:=1 to i-1 do begin
        StrList.Add(vocab2[y]);
      end;
      StrList.SaveToFile(SaveDialog1.FileName);
    finally
      StrList.Free;
    end;
  end;
end;

procedure TForm1.B_loadClick(Sender: TObject);
var StrList: TStrings;
    y: integer;
begin
  if OpenDialog1.Execute then begin
    StrList := NIL;
    try
      StrList := TStringList.Create;
      StrList.LoadFromFile(OpenDialog1.FileName);
      i:=StrToInt(StrList[1]);
      SetLength(Vocab1,i);
      SetLength(Vocab2,i);
      for y:=1 to i do begin
        vocab1[y] := StrList[y];
      end;
      for y:=i+1 to 2*i do begin
        vocab2[y+i] := StrList[2*i-1];
      end;
    finally
      StrList.Free;
    end;
  end;

end;

Eine gespeicherte Datei sieht so aus:

Code:

5
12
123
1234
12345
12
123
1234
12345

[Markus K.]

Hallo TheBluescreen,
was möchtest du denn mit folgender Zeile bezwecken? Verstehe sie nicht ganz?

Delphi-Quellcode:

i:=StrToInt(StrList[1]);

Tschüß Markus

[skylerx]

Hallo,

müsste der Typ zuerst einmal nicht TStringList sein und nicht TStrings?

StrList : TStringList;

Wenn du die Größe des Arrays als erstes in die StringList speicherst, dann musst du die mit dem Index [0] herauslesen.

Jetzt verstehe ich nicht ganz, warum du beim Speichern die Schleife von 1 bis i-1 laufen lässt und beim Laden von 1 bis i.

Müsste das beim Einlesen der Werte für vocab2 nicht heißen

for y:=i+1 to 2*i do
begin
vocab2[y-i] := StrList[y] ?

Habe ich z.B. 8 Werte, dann steht in StrList[0] der Wert 8

StrList[1] bis StrList[8] enthalten die Werte für vocab1
StrList[9] bis StrList[16] enthalten die Werte für vocab2, richtig?

Läuft y also von 9 bis 16, dann bekomme ich mit y-i die Indizes 1-8 für vocab2 und die Werte StrList[y] müsste ich doch so übernehmen können.

[himitsu]

1. es macht sich besser, wenn die Schreib- und Lese-Prozeduren möglichst gleich aufgebaut sind.

2. Array's und insbesonders dynamische Array's beginnen mit der Zählung bei 0.

3. Dort wo eine Zählervariable benötigt wird, sollte auch eine vorhanden sein.

Code:

      for y:=i+1 to 2*i do begin
        vocab2[y+i] := StrList[color=red][2*i-1][/color];  // wo ist [color=red][b]Y[/b][/color]

...


Das Ergebnis sollte in etwa so aussehn (die größten Änderungen sind hervogehoben):

Code:

procedure TForm1.B_SaveClick(Sender: TObject);
  ...
      StrList := TStringList.Create;
      StrList.Add(inttostr(i));
      for y:= [color=red]0[/color] to i-1 do begin
        StrList.Add(vocab1[y]);
      end;
      for y:=[color=red]i[/color] to [color=red]2*i-1 [/color]do begin
        StrList.Add(vocab2[y[color=red]-i[/color]]);
      end;
      StrList.SaveToFile(SaveDialog1.FileName);


procedure TForm1.B_loadClick(Sender: TObject);
  ...
      StrList := TStringList.Create;
      StrList.LoadFromFile(OpenDialog1.FileName);
      i:=StrToInt(StrList[[color=red]0[/color]]);
      SetLength(Vocab1,i);
      SetLength(Vocab2,i);
      for y:=[color=red]0[/color] to i[color=red]-1[/color] do begin
        vocab1[y] := StrList[y[color=red]+1[/color]];
      end;
      for y:=[color=red]i[/color] to 2*i[color=red]-1[/color] do begin
        vocab2[[color=red]y-i[/color]] := StrList[[color=red]y+1[/color]];
      end;

[TheBluescreen]

@Markus K.
i stellt die Länge der dynamischen Arrays dar. Wenn ich sie nicht speichern und laden würde, wüsste das Programm nicht, wie lang das Array ist.

@skylerx
Ich habe den Code aus irgend einem Beitrag hier im Forum herauskopiert... Ob das TStrings oder eine TStringlist sein muss, kann ich nicht sagen...

@himitsu

:thuimb:

Mit deinem Vorschlag funktioniert es wunderbar! Vielen Dank!!!!

Ps: auchnochmal vielen Dank an Markus und skylerx fürs Kopfzerbrechen

MfG

Bluescreen