![]() |
Aus ListView Item auslesen
Hallo Gemeinde!
Ich hänge mal wieder...:oops: In einem Listview sind in den SubItems Koordinaten (Integer) auszulesen, was ich wie folgt versuche:
Delphi-Quellcode:
Das gestaltet sich aber insoweit schwierig, als es zur Excpetion kommt: EConverError.
X1 := StrToInt(Item.SubItems.Text);
Tatsächlich sehe ich im Debugger, dass dort nicht wie erwartet eine 154 steht sondern:
Delphi-Quellcode:
(Besonders problematisch ist die Stelle nach der 4: dort sehen ' und " irgednwie wie zusammengeschweisst aus...).
'"154"'#$D#$A
Habt ihr vielleicht eine Idee, wie ich aus dem Geschwurbel eine ordentliche 154 als Integer herausschlagen kann? Lieben Dank -- bin für jeden Hinweis dankbar! Gruß Jazzman |
AW: Aus ListView Item auslesen
Statt StrToInt() sollte man bevorzugr TryStrToInt(), StrToIntDef() oder Val() verwenden
TryStrToInt() bietet sich an, wenn man auf falsche Eingaben reagieren will, StrToIntDef() nimmt bei Falscheingabe einen Defaultwert an und Val() entfernt falsche Zusaätze -> aus '5 €' wird 5 |
AW: Aus ListView Item auslesen
Vielen Dank für die schnelle Antwort!
Das ist aber nicht ganz, was ich suche: Also mit folgendem Code versuche ich ein Integer aus dem Item-Text herauszuoperieren:
Delphi-Quellcode:
Es fällt mir mit dieser Methode also schwer, die " herauszufischen, da wie gesagt am Ende die ' und " irgendwie zusammenkleben.
temp_str := Item.SubItems.Text; // temp_str = '"31"'#$D#$A
temp_str := String(PChar(temp_str)); // Null-Char im String-Buffer? temp_str := Trim(temp_str); // Löschen Zeilentrenner X1 := StrToInt(temp_str); // EConvertError, klar weil temp_str = '"31"' Gruß Jazzman |
AW: Aus ListView Item auslesen
Warum so aufwendig:
Delphi-Quellcode:
temp_str := Item.SubItems[0]; // temp_str = 31
|
AW: Aus ListView Item auslesen
Zitat:
Gruß Jazzman |
AW: Aus ListView Item auslesen
Dann ersetze sie doch einfach mit StringReplace durch nichts. Ich verstehe dein Problem nicht.
|
AW: Aus ListView Item auslesen
Zitat:
Danke & Gruß Jazzman |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz