TDataset.Locate mit ListView Integer

[Stewag]

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([StrToInt(Listview1.items[i].Subitems.Text)]), []) then schlägt aber fehlt mit dem Hinweis, dass "12345" kein gültiger Integer ist.
Offenbar exportiert Variant hier stets einen String.

Hat jemand eine Idee, wie ein Integer exportiert werden kann?

[himitsu]

Ein Variant kann einen Integer enthalten.
Wenn man einem Variant einen Integer zuweist, dann ist der auch als Typ "Integer" im Variant gespeichert und nicht als String. (Variant kann nicht alles, was Delphi kann, aber den kann er)


Da du nur in einem Feld suchst, lass mal das Array weg und versuche es so

Delphi-Quellcode:

if tdata1.Locate('ID', Listview1.items[i].Subitems.Text, []) then

if tdata1.Locate('ID', StrToInt(Listview1.items[i].Subitems.Text), []) then

[Delphi.Narium]

himitsus erste Variante sollte eigentlich funktionieren.

Ein VarArrayOf braucht man nur, wenn man gleichzeitig nach mehreren Werten suchen will, z. B. sowas: tdata1.Locate('SpalteVerzeichnis;SpalteDateiname', VarArrayOf([VariabelMitVerzeichnisnamen, VariabelMitDateiname]),[])
Also wenn man beim Locate mehrere Spaltennamen angibt und dann für jede Spalte einen Wert übergeben muss.

Eventuell hilft auch noch ein if tdata1.Locate('ID', Trim(Listview1.items[i].Subitems.Text), []) then . Wenn dann das Problem bleibt, müsste man nach weiteren Fehlern suchen, die nicht zwingend direkt vom Locate, sondern eher von den Daten herrühren könnten.

Dann eventuell mal prüfen, ob es in der ID-Spalte eventuell einen Wert gibt, der kein Integer ist. (Bei 'ner Integerspalte natürlich eher unwahrscheinlich, aber ein NULL-Wert könnte da schon zu einem "komischen" Ergebnis führen.)

[himitsu]

Ach ja, ein TDataSet kann eigentlich fast garnichts. (ist mehr sowas wie TStrings, also vor allem eine gemeinsamme Schnittstelle)

Je nach DB-Komponenten kann es sein, dass die hier bissl anders reagieren.
Beim TClientDataSet und bei den DevArt-Komponenten kann man eigentlich auch problemlos einen String mit Zahl rein geben, obwohl man in einem Integer-Feld sucht.

[hoika]

Hallo,
ich würde einfach mal mit einer lokalen Variable arbeiten.
Da macht das Debuggen auch noch mehr Spaß.

[Stewag]

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.

showmessage('M'+Listview2.items[i].Subitems.Text+'M'); ergibt nämlich diese Ausgabe:

M12345
M

und nicht diese: M12345M

Die Zuweisung sieht so aus: ListItem2.SubItems.Add(qCompare2.FieldByName('ID').AsString);

[Stewag]

... bzw. vollständige Zuweisung:

Delphi-Quellcode:

ListItem1, ListItem2: TListItem;

  ListItem2 := ListView2.Items.Add;  
  ListItem2.Caption := qCompare2.FieldByName('Bezeichnung').AsString;
  ListItem2.SubItems.Add(qCompare2.FieldByName('ID').AsString);

[Delphi.Narium]

Dann sollte das Trim ausreichen, da das u. a. führende und folgende Zeilenumbrüche wegnimmt.

Bei Stringlisten (und SubItems scheint hier dann jeweils eine zu sein (TListItem.SubItems Property)), bekommt man beim Zugriff auf Text immer einen Zeilenumbruch am Ende "mitgeliefert". Der ist bei Integer nicht so wirklich hilfreich.

Mögliche Lösung (grob und ungetestet):

Delphi-Quellcode:

if Listview1.items[i].Subitems.Count > 0 then begin
  if tdata1.Locate('ID', Listview1.items[i].Subitems[0]), []) then begin

  end;
end;
// oder
if Listview1.items[i].Subitems.Count > 0 then begin
  if tdata1.Locate('ID', StrToInt(Listview1.items[i].Subitems[0])), []) then begin

  end;
end;
// oder
if tdata1.Locate('ID', StrToInt(Trim(Listview1.items[i].Subitems.Text))), []) then begin

end;

[himitsu]

Zitat von Stewag:

schlägt aber fehlt mit dem Hinweis, dass "12345" kein gültiger Integer ist.

Zitat von Stewag:

Habe nun fest gestellt, dass das Variant gar nicht der Grund für den Fehler war sondern der im Subitem enthaltene Zeilenumbruch.

Ich würde fast wetten das hätte man auch in der Fehlermelung gesehn, wenn du sie "komplett" kopiert hättest.

Strg+C im Exception-Dialog (geht in fast allen Delphi-Dialogen)
und Strg+V hier im Forum, mit [QUOTE]...[/QUOTE] drumrum.

Zitat:

Listview1.items[i].Subitems.Text

Joar, wenn SubItems z.B. eine StringList wäre
und du auch alle Subitems abfragst, anstatt nur das Gewünschte, dann wäre natülich nach jedem SubItem ein Zeilenumbruch.
Listview1.Items[i].SubItems[0] , Listview1.Items[i].SubItems[0].Text oder irgendwie so, für das erste SubItem.

[Stewag]

... sooo simpel, ihr seid klasse - vielen Dank!
Und ja, man hätte es an der Fehlermeldung sehen können