Ich habe eine Android App mit einer Listview erstellt.
Sobald man die App startet werden alle werte mittels Memo geladen und dann in die Listview mittels folgender Procedure in die Listview eingefügt.
Delphi-Quellcode:
function ReAddBlanks (St:String) : String;
begin
result := StringReplace(St, '§', ' ',[rfReplaceAll, rfIgnoreCase]);
end;
Procedure TfrmMain.AddAllItems(Value : String);
var
VList : TStringlist;
Item : TListViewItem;
AK : Boolean;
begin
Value := StringReplace(Value, ' ', '§',[rfReplaceAll, rfIgnoreCase]);
VList := TStringlist.Create;
VList.Delimiter := '#';
VList.DelimitedText := Value;
Item := LVEinkauf.items.Add;
Item.Objects.FindObjectT<TListItemText>('Anzahl').Text := ReAddBlanks(VList[0]);
Item.Objects.FindObjectT<TListItemText>('Trenner').Text := 'x';
Item.Objects.FindObjectT<TListItemText>('Laden').Text := ReAddBlanks(VList[1]);
Item.Objects.FindObjectT<TListItemText>('Produkt').Text := ReAddBlanks(VList[2]);
Item.Objects.FindObjectT<TListItemImage>('LineImage').Bitmap := Image1.Bitmap;
if VList[3]='T' then AK := True else AK := False;
Item.Objects.FindObjectT<TListItemImage>('LineImage').Visible := AK;
LVEinkauf.itemIndex := -1;
end;
Wenn ich diese Procedure zur Laufzeit ausführe funktioniert alles wie es soll.
Zum Beispiel:
AddAllItems('1#Laden1#Nägel 25x2,5#F');
Aber wenn die App startet und die Daten lädt, wird bleibt der TListItemImage Visible stand immer auf False und die daten werden einfach nur eingefügt. Es kommt keine Fehlermeldung.
Kann mir jeman sagen was da schief läuft?