ListBox füllen

[himitsu]

In anderen Systemen (Mac, Windows, iOS, iOS-Simulator, ...) wird alles angezeigt?
Und nur nochmal zur Sicherheit nachgefragt: Im Debugger oder anders geloggt/nachgesehn (MessageBox?) hast du bereits, ob wirklich die Schleife 2, bzw. 5 Mal durchlaufen wird?
Alle Updates sind installiert?

Es kann natürlich auch ein Bug sein und wenn, dann solltest du Diesen im QC melden.
(bzw. das Bugfix XE6/XE7 kaufen, wobei soein Fehler schon als gravierend genug sein sollte, daß es hierfür schnell einen Hotfix geben könnte)
Als schnellen Bugfix könntest du z.B. einfach einen Dummy-Eintrag an die Liste anhängen.

Delphi-Quellcode:

procedure TTabbedForm.LB_DatenSendenClick(Sender: TObject);
var I : Integer;
    FF : array of TFileInfo;
begin
  SetLength(FF,5);
  FF[0].FileName:='a.kml';
  FF[1].FileName:='b.kml';
  FF[2].FileName:='c.kml';
  FF[3].FileName:='d.kml';
  FF[4].FileName:='e.kml';
  for I := Low(FF) to High(FF) do
    ListBox2.Items.Add(FF[i].FileName);
  ListBox2.Items.Add('');
end;

[geosucher]

Hallo himitsu,

ich habe bisher nur die VCL-Variante getestet und die funktioniert glücklicherweise.
Ich habe RADStudio XE5 Update 2 installiert. Danach sollten noch 6 Hotfixes sein, muss ich noch
checken, ob da alles stimmt.
Die Idee mit dem dummy ist für das Erste eine Variante...

Danke!

Geosucher

[mkinzler]

Mit Delphi XE6 (Emulator) funktioniert es. (Habe kein XE5 mehr installiert)

[Harry Stahl]

Also unter XE5, Update 2 funktioniert der Code:

Delphi-Quellcode:

unit Unit55;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.ListBox;

type
  TForm55 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form55: TForm55;

implementation

{$R *.fmx}

type
  TFileInfo = record
    FileName: string;
    Info: string;
  end;

procedure TForm55.Button1Click(Sender: TObject);
var I : Integer;
  FF : array of TFileInfo;
begin
  SetLength(FF,5);
  FF[0].FileName:='a.kml';
  FF[1].FileName:='b.kml';
  FF[2].FileName:='c.kml';
  FF[3].FileName:='d.kml';
  FF[4].FileName:='e.kml';
  for I := Low(FF) to High(FF) do
    ListBox1.Items.add(FF[i].FileName);
end;

end.

wie er soll, siehe anliegenden Screenshot vom Samsung-Device.

[geosucher]

Ok, sorry mein Fehler! Ich habe auf der Listbox einen Button (align: alBottom). Der lag quasi über dem letzten Eintrag.
Liegt der Button nicht auf der Lsitbox ist alles ok. Sorry, hoffe ich habe nicht zu viel Arbeit gemacht....

Danke!

Geosucher