Anzahl von listbox Strings anpassen -> aus grid geladen

**rhodan**

Grüße aus Hamburg,

muss nochmal mit meiner Listbox nerven

Habs jetzt zwar mit Hilfe geschafft die einträge aus dem Grid in der Listbox anzuzeigen, allerdings hab ich am ende der listbox immer leere Zeilen/Items (sry bin mir nicht sicher wie exakte name ist).
dies ist mein code mit dem ich die listbox fülle (ein paar var einträge kommen in diesem teil des quelltextes nicht vor, hab nur den listbox-quellcode kopiert):

zusammenfalten · markieren

Delphi-Quellcode:

			var

 iRow: integer;

  sPrev, sCurr: string;

  datei : TextFile;

  dateiname : String;

  zeile : String;

  inhalt : String;

  perslist : Sarr;

  pers : Sarr;

  i, j : integer;

  begin

etc etc..........

listbox1.Clear;

   for iRow := 1 to length(perslist) do

    begin

    sCurr := StringGrid1.Cells[CI_ACCT, iRow];

    if sCurr <> sPrev then

    begin

      if iRow > 1 then

      listbox1.items.Add('');

      listbox1.items.Add(sCurr);

      listbox1.items.Add(StringOfChar('-', 10));

      sPrev := sCurr;

    end;

    listbox1.items.Add(StringGrid1.Cells[CI_NAME, iRow]);

  end;

 dateiname := ('rankinglist.htm');

  AssignFile(datei, dateiname);

  reset(datei);

  inhalt := '';

  repeat

    Readln(datei, zeile);

    inhalt := inhalt + zeile;

  until eof(datei);

  CloseFile(datei);

  inhalt := getTable(inhalt);

  perslist := getEntries(inhalt);

  i := 0;

  while (perslist[i] <> '') do

  begin

    pers := processAccount(perslist[i]);

    for j := 0 to 11 do

    begin

      Stringgrid1.cells[j+1,i+1]:=pers[j];

    end;

    inc(i);

  end;

 reloadtable.Enabled := true;

      reloadhtml.Enabled := true;

end;

end;

end;

Was ich schon heraus gefunden habe ist das die "Zeilenanzahl" der listbox mit der Sarr definition zusammenhängt.

markieren

Delphi-Quellcode:

			for iRow := 1 to length(perslist) do

    begin

ist die zeile (denk ich) die auf "sarr" zurückgreift. Die Definition von "Sarr" hab ich ziemlich weit oben in meinem code stehen, direkt über der implementation:

markieren

Delphi-Quellcode:

			type

 Sarr = Array [0..1000] of String;

statt der 1000 kann ich hier auch ne andere zahl eintragen, meine listbox wird immer exakt diese "Zeilenanzahl" haben.

da ich unterschiedlich lange listen in die listbox lade, möchte ich nun das dieses Array variabel ist bzw. sich an die anzahl der im Grid befindlichen Einträge hält. Wenn ihr nen anderen Quellcode braucht sagt bitte bescheid, ich komm da einfach nicht hinter

Gruße von

Rhodan

Anzahl von listbox Strings anpassen -> aus grid geladen

Anzahl von listbox Strings anpassen -> aus grid geladen

Forumregeln