Hallo zusammen,
habe ein - sicher ganz blödes - Problem, programmiere mit Delphi XE5 FireMonkey für Android (Samsung Galaxy Tab).
Ich möchte eine ListBox füllen mit folgendem Code:
Delphi-Quellcode:
var FI : array of TFileInfo;
CountFI : Integer;
procedure TTabbedForm.LB_DatenSendenClick(Sender: TObject);
var i : Integer;
anh : String;
begin
TabControl1.ActiveTab:=DateiTab;
for I := 0 to CountFI-1 do
begin
if FI[i].Datum<>'' then
anh:=FI[i].FileName+' * '+FI[i].Datum;
if FI[i].Zeit<>'' then
anh:=anh+' '+FI[i].Zeit;
ListBox2.Items.Add(anh);
end;
end;
CountFI ist im Beispiel gleich 2. Das Array ist entsprechend gefüllt. In der App habe ich dann nur einen Eintrag.
Im Debug zeigt er auch nur die Schleife für den Wert 1 an....???
Hat jemand eine Idee?
Gruß
Geosucher