TDataset.Locate mit ListView Integer

[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