EListError, warum? ObjectList mit Daten füllen

[delphifan2004]

Zitat von Uwe Raabe:

Warum überhaupt dieses Hochzählen, wo die Werte doch im nächsten Durchlauf wieder gesetzt werden?

Weil t=top ist und irgendwie die Höhe der Zeile her muss. Aber ok, dennoch danke für den Hinweis, ich guck mir den Code noch mal an, vielleicht geht das eleganter zu lösen. Ich brauche auf jeden Fall das aktuelle Top und die Höhe der Zeile.

Aber warum bekomme ich den EListError? Und wie kann ich den bei solchen Listen ein für allemal umgehen, den hatte ich schon mehrfach mit Listen?

[venice2]

Zitat:

Weil t=top ist und irgendwie die Höhe der Zeile her muss.

Siehe mein Edit.

[Uwe Raabe]

Zitat von delphifan2004:

Aber warum bekomme ich den EListError?

Könnte es sein, dass hier die beiden letzten Zeilen noch in die For-Schleife gehören und da lediglich ein Begin/End fehlt? (Der Compiler sollte eine Warnung liefern!)

Delphi-Quellcode:

    for ACol := 0 to FCols-1 do TStringList(FRowsContainer.Items[ARow]).AddObject(' ', TGridColumn.Create(self));
    TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Width := FColWidth;
    TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Height := FRowHeight;

Besser wäre aber das ganze wie oben schon erwähnt mit einer lokalen Variable zu lösen:

Delphi-Quellcode:

    for ACol := 0 to FCols-1 do begin
      var gridColumn := TGridColumn.Create(self);
      gridColumn.Width := FColWidth;
      gridColumn.Height := FRowHeight;
      TStringList(FRowsContainer.Items[ARow]).AddObject(' ', gridColumn);
    end;

[delphifan2004]

Zitat von Uwe Raabe:

Zitat von delphifan2004:

Aber warum bekomme ich den EListError?

Könnte es sein, dass hier die beiden letzten Zeilen noch in die For-Schleife gehören und da lediglich ein Begin/End fehlt? (Der Compiler sollte eine Warnung liefern!)

Delphi-Quellcode:

    for ACol := 0 to FCols-1 do TStringList(FRowsContainer.Items[ARow]).AddObject(' ', TGridColumn.Create(self));
    TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Width := FColWidth;
    TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Height := FRowHeight;

Besser wäre aber das ganze wie oben schon erwähnt mit einer lokalen Variable zu lösen:

Delphi-Quellcode:

    for ACol := 0 to FCols-1 do begin
      var gridColumn := TGridColumn.Create(self);
      gridColumn.Width := FColWidth;
      gridColumn.Height := FRowHeight;
      TStringList(FRowsContainer.Items[ARow]).AddObject(' ', gridColumn);
    end;

OK, danke, ist geändert, allerdings habe ich den EListError immer noch. Irgendwas Anderes ist da noch verkehrt. Ich sehe aber nicht, was, vielleicht sollte ich für heute aufhören und Abstand gewinnen und übers WE noch mal schauen.

[Delphi.Narium]

Zitat von delphifan2004:

Ich bekommen einen EListError, der mir als Meldung die letzte Zeile der Objektliste FRowsContainer anzeigt.

Und welche Zeile genau ist das?

Die letzte im Eingangspost oder die letzte in welcher der Prozeduren?

Zitat:

EListError is the exception class for list and string errors.

EListError is raised when an error is made in a list, TStrings, or TStringList object. This exception commonly occurs when an application refers to an item that is out of the list's range.

EListError also occurs if an application tries to add a duplicate string to a TStringList object when the value of the Duplicates property is dupError.

An EListError exception is raised when an application attempts to insert a string into a sorted string list, since the insertion of a string at a specified position may put the list out of order.

Welche Variante des Fehler EListError kommt denn hier in Frage?

Ein Fehler, der durch nicht ganz korrekte Zählweise entstehen könnte oder die Variante, dass da irgendwo eine Dublette in 'ner Stringliste eingefügt wird?

Bei Zählfehlern könnte man ggfls. hier im Forum behilflich sein, wenn die exakte Fehlerzeile mal bekanntgegeben wird. Einen potentiellen Dublettenfehler können wir so ohne weiteres nicht erkennen. Weder kennen wir die zu verarbeitenden Daten noch wissen wir, ob die Stringlisten sortiert sein könnten und das Einfügen von Dubletten eventuell nicht möglich ist.

Die dritte Variante könnte eintreten, wenn bei einer Liste, deren AList.Capacity := 5; ist, das sechste Element eingefügt wird.
Hier könnte ggfls. ein SetCols(6); (oder ein beliebiger anderer Wert > 5?) Fehlerursache sein.

Oder ich könnte mit meinen Mutmaßungen auch vollständig daneben liegen

[delphifan2004]

Huch! Doublette!

Wie macht delphi das in seinem Stringgrid?

Ich codiere:

TStringList(FRowsContainer.Items[ARow]).AddObject(' ', gridColumn); Und da ist sie, die Doublette! Trotz AList.Duplicates := dupAccept in SetRows! tritt jetzt der Feler immr noch auf, allerdings verändert, das Programm hängt fest, der EListError erscheint nun nicht mehr, aber das Programm hängt.

Wie macht das Delphi mit der Stringliste die auch dort die Strings aufnimmt?

Der Fehler trat zuerst hier auf:

Delphi-Quellcode:

 if (ACol<TStringList(FRowsContainer.Items[ARow]).Capacity) and Assigned(TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol])) then
    begin
    w := gc.Width; //TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Width; //#### Hier der EListError ####[]

Hier noch mal die ganze Methode:

Delphi-Quellcode:

procedure TCustomGrid.Paint;
var ACol,ARow,w,h,l,t,r,b: Integer; gc: TGridColumn; sl: TStringList; rc: TObjectList;
begin
  inherited Paint;
  for ARow:=0 to FRowsContainer.Count-1 do
  for ACol:=0 to TStringList(FRowsContainer.Items[ARow]).Count-1 do
  begin
    rc := FRowsContainer;
    sl := TStringList(rc.Items[ARow]);
    gc := TGridColumn(sl.Objects[ACol]);
    if (ACol<TStringList(FRowsContainer.Items[ARow]).Capacity) and Assigned(TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol])) then
    begin
    w := gc.Width;  //TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Width;                                                        //#### Hier der EListError ####
    h := gc.Height; //TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Height;
    l := gc.Left;   //TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Left;
    t := gc.Top;    //TGridColumn(TStringList(FRowsContainer.Items[ARow]).Objects[ACol]).Top;
    end;
    DrawRectangleClip(vscreen,l,t,l+w,t+h,ToColor(colBlack));

    t := t + h;
    l := l + w;
  end;
end;

Siehe auch Eingangsbeitrag, dortiger Code.


In SetRows -> AList.Capacity:=5 muss ich natürlich noch anpassen auf beliebig viele Elemente. Aktuell aber sollen für den Test 5 Spalten genügen.

Die Schwierigkeit ist hier, dass ich zunächst eine Zeile erzeigen will, aber noch nicht weiß, wie viele Spalten die haben soll, das entscheidet sich danach erst in SetCols().
Ich brauchte hier eine dynamische Anpassung der Spalten nachdem die Zeile erzeugt ist. Auch hier die Frage, wie macht Delphi das in seinem Stringgrid? Da guck ich inzwischen mal in den Code rein. Vielleicht finde ich ja dort die Lösung des Problems. Vorausgesetzt Emba programmiert nicht zu trickreich.

[delphifan2004]

Debuggen ergibt in SetRows die Fortsetzung

for ACol := 0 to FCols-1 do

eine Zählung über Spalte 9 hinaus. Warum das? Ich will 9 Spalten haben und nicht 10 SetCols(9)! 0..9 sind doch schon 10 Spalten, FCols -1 sind 9 Spalten!

Offenbar wird die Abbruchbedingung nicht eingehalten. Wie kann das sein? Die For Schleife sollte doch automatisch weiter zählen und bei Erreichen des Maximalwertes abbrechen.

Ich habe in SetCols() die Zeile

if ACol >= FCols-1 then break ergänzt.

[venice2]

Ich verweise nochmals auf diese Bitte.. Mit den Fehlern wie sie aktuell sind.
So können wir leider nur raten.

Zitat:

vielleicht solltest du ein kleines Test-Programm posten, dann kann man das auch leichter testen.