Liste exceeds bounds (Schnelle Hilfe bitte)

[Der schöne Günther]

Deine Datei hat doch auch nur so viel Zeilen

for j:=3 to Form1.zwischenspeicher.Lines.Count do Count (von egal was) gibt an, wieviel drinsteckt. Angefangen zu zählen wird bei Null.
Wenn in irgendetwas drei Dinge stecken und machst etwas von den Dingen an Position Null bis inklusive drei. Dann sind das schon vier.

Also:
for j:=3 to (Form1.zwischenspeicher.Lines.Count-1) do

Außerdem habe ich grade voll den crazy Gedankengang: Möchtest du vielleicht einmal FreePascal in dein Profil eintragen?

[Finki]

zu deiner Lösung hab ich schon versucht: ohne Veränderung!

und zu zweitens was soll das bringen

[taveuni]

Zitat von Finki:

und zu zweitens was soll das bringen

Weil gewisse Features von Delphi1 <> Delphi7 <> Delphi2007 <> DelphiXE <> Lazarus sind.
Wenn ich jetzt nach Monaten wieder mal an Delphi sitze und bei mir was ausprobiere
was Dein Problem betrifft - und kanns nicht nachvollziehen.
X Threads weiter erfahr ich dann dass es Lazarus ist.
Ich fühl mich dann verarscht und meine Zeit ist verschwendet.
Kapierst Du das und trägst das jetzt in dein Profil ein oder bist Du nur ein Troll?

[Daniel]

@taveuni: Kein Grund, ausfallend zu werden.

@Finki: Wenn das tatsächlich Lazarus ist, womit Du arbeitest, wäre das natürlich eine wichtige Information.

[taveuni]

Zitat von Daniel:

@taveuni: Kein Grund, ausfallend zu werden.

Ja sorry.

[OT]
Ich ärger mich seit einer Woche mit einem Problem rum Remobjects/Delphi 2007.
Und das Projekt ist von 2006. Der Code ist
[/OT]

[Blup]

Der Code bezieht sich fast vollständig auf Form1, gehört also auch in diese Klasse.
Bitte rücke den Code ordentlich ein.
Verwende Unterfunktionen/Methoden zur Übersichtlichkeit und zum Testen.

Delphi-Quellcode:

procedure TForm2.btnLoadClick(Sender: TObject);
begin
  Form1.OpenFile;
  Close;
end;

type
  TForm1 = class(TForm)
  private
    procedure ReadData;
    procedure ReadTyp1(var j: Integer);
    procedure ReadTyp2(var j: Integer);
    procedure ReadTyp3(var j: Integer);
    procedure ReadTyp4(var j: Integer);
  public
    procedure OpenFile;
  end;


procedure TForm1.OpenFile;
begin
  if OpenDialog1.Execute then
  begin
    Zwischenspeicher.Lines.LoadFromFile(OpenDialog1.FileName);
    ReadData;
    Zwischenspeicher.Clear;
  end;
end;

procedure TForm1.ReadData;
var
  j, iTyp : integer;
  anztxti, anzlbli, anzmemoi : integer;
begin
  Memo1.Visible:=false;

  pnlForm1.Destroy;
  pnlForm1 := nil;
  pnlForm1 := TPanel.Create(Self);
  pnlForm1.Parent := Form1;
  pnlForm1.SetBounds(8, Memo1.Top, Memo1.Width, Memo1.Height-5);
  pnlForm1.Visible:=true;

  CloseFormular := TSpeedButton.Create(pnlForm1);
  CloseFormular.Parent := pnlForm1;
  CloseFormular.SetBounds(pnlForm1.Width-20,0,20,20);
  //CloseFormular.Glyph.LoadFromFile('menu_close.bmp');
  CloseFormular.Font.Color:=clRed;
  CloseFormular.Font.Bold:=true;
  CloseFormular.Font.Name:='Arial';
  CloseFormular.Caption:='X';
  CloseFormular.OnClick:=@CloseFormularClick;
  CloseFormular.Caption:='X';
  CloseFormular.SetBounds(pnlForm1.Width-16,0,16,16);

  anztxti  := Zwischenspeicher[0]; //position der Anz txt
  anzlbli  := Zwischenspeicher[1]; //position der Anz lbl
  anzmemoi := Zwischenspeicher[2];
  j := 3;
  while j < zwischenspeicher.Lines.Count do
  begin
    iTyp := StrToIntDef(Zwischenspeicher[j], 0);
    Inc(j);
    case iTyp of
      1: ReadTyp1(j);
      2: ReadTyp2(j);
      3: ReadTyp3(j);
      4: ReadTyp4(j);
    else
      raise Exception.CreateFmt('Typ nicht unterstützt Zeile(%d)', [j]);
    end;
  end;
end;

procedure TForm1.ReadTyp1(var j: Integer);
var
  Edit4 : TEdit;
begin
  Edit4 := TEdit.Create(pnlForm1);
  Edit4.Parent   := pnlForm1;
  Edit4.Name     := Zwischenspeicher[j];
  Edit4.Enabled  := True;
  Edit4.AutoSize := False;
  Edit4.Text     := Zwischenspeicher[j + 1]
  Edit4.Setbounds(IntToStr(Zwischenspeicher[j + 2]),
                  IntToStr(Zwischenspeicher[j + 3]),
                  IntToStr(Zwischenspeicher[j + 4]),
                  IntToStr(Zwischenspeicher[j + 5]));
  Inc(j, 8); // <- so viele Zeilen, wie für diesen Typ erforderlich
end;

[hoika]

Hallo,

Delphi-Quellcode:

//for j:=3 to Form1.zwischenspeicher.Lines.Count do
for j:=3 to Form1.zwischenspeicher.Lines.Count-1 do
begin
  if Form1.zwischenspeicher.Lines[(j-3)*8+4]='1' then
  begin
  end;
end;

Nehmen wir mal 10 Zeilen in der Datei an.
Dann kommt bei der letzten Zeile (j=9)
(9-3)*8+4 = 52 raus.

Wieso soll der Compiler zur Laufzeit dann nicht meckern ...


Heiko

[Blup]

Wenn man die Prüfung auf Bereichsüberschreitung abschaltet ...
und dann mit die Compileroptionen so einstellt das man nicht debuggen kann...
... fehlt nur noch ein großes "try..except end" damit niemand die Fehlermeldungen sieht.

[Der schöne Günther]

Das ist aber schon deluxe.

Wenn man überhaupt erstmal so weit kommt dass er überhaupt kompiliert könnte man eigentlich schon ausrollen.

[DeddyH]

An das "- 1" hab ich auch zuerst gedacht, aber es wird ja nirgends auf Form1.zwischenspeicher.Lines[j] zugegriffen, sondern immer auf abenteuerliche Indizes, die nach einer magischen Formel berechnet werden. Man darf mich jetzt meinetwegen hassen, aber nach dem ersten Blick auf den Code kam mir der alte Spruch "Niemand ist unnütz, er kann immer noch als schlechtes Beispiel dienen" in den Sinn.