Hallo zusammen,
ich ändere einen Wert in einer TAdvListView. Dieses funktioniert auch wunderbar. Ich möchte aber nun nach der Änderung den Wert noch entsprechend darstellen. Hier meine beiden Versuche, die leider nicht funktionieren :
Versuch 1:
Delphi-Quellcode:
procedure TMainForm.AdvLV_GrunddatenzuschuesseEdited(Sender: TObject;
Item: TListItem; var S: string);
var
tmpBetrag: Extended;
begin
case AdvLV_Grunddatenzuschuesse.ColumnIndex of
0 : begin
// ToDo Something
end;
1 : begin
if TryStrToFloat(S, tmpBetrag) then
AdvLV_Grunddatenzuschuesse.Selected.SubItems.Strings[0] := Format('%2.2n €', [tmpBetrag]);
end;
2 : begin
// ToDo Something
end;
end;
end;
Versuch 2:
Delphi-Quellcode:
procedure TMainForm.AdvLV_GrunddatenzuschuesseEdited(Sender: TObject;
Item: TListItem; var S: string);
var
tmpBetrag: Extended;
begin
case AdvLV_Grunddatenzuschuesse.ColumnIndex of
0 : begin
// ToDo Something
end;
1 : begin
if TryStrToFloat(S, tmpBetrag) then
Item.SubItems.Strings[0] := Format('%2.2n €', [tmpBetrag]);
end;
2 : begin
// ToDo Something
end;
end;
end;
Ihr werdet mir wahrscheinlich gleich sagen, dass Versuch 1 & 2 das gleiche ist. Das kann ich mir schon entsprechend vorstellen, nur leider funktionieren beide nicht. Es gibt auch keine Fehlermeldung. Es wird immer nur so angezeigt, wie ich es eingebe.
Was mache ich falsch ?