Forum: Algorithmen, Datenstrukturen und Klassendesign
by Stewag,
1. Mär 2018
... sooo simpel, ihr seid klasse - vielen Dank!
Und ja, man hätte es an der Fehlermeldung sehen können :oops:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Stewag,
1. Mär 2018
... bzw. vollständige Zuweisung:
ListItem1, ListItem2: TListItem;
ListItem2 := ListView2.Items.Add;
ListItem2.Caption := qCompare2.FieldByName('Bezeichnung').AsString;
ListItem2.SubItems.Add(qCompare2.FieldByName('ID').AsString);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Stewag,
1. Mär 2018
Hallo,
danke für die schnellen Antworten.
Habe nun fest gestellt, dass das Variant gar nicht der Grund für den Fehler war sondern der im Subitem enthaltene Zeilenumbruch:shock:.
showmessage('M'+Listview2.items.Subitems.Text+'M');
ergibt nämlich diese Ausgabe:
M12345
M
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Stewag,
1. Mär 2018
In einem TListview habe ich als zweite Spalte eine ID als SubItem gesetzt.
Da SubItem nur Strings akzeptiert ist die ID dort als String abgelegt, obwohl das Feld in der Datenbank ein Integer ist.
Nun will ich per Locate nach der ID suchen:
if tdata1.Locate('ID', VarArrayOf(.Subitems.Text)]), ) then
schlägt aber fehlt mit dem Hinweis, dass "12345" kein gültiger Integer ist.
Offenbar...