Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
10. Nov 2007
@Gehstock: der Preis steht nicht in Items, sondern in SubItems.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
10. Nov 2007
Ich vermute stark, dass er versehentlich Items und SubItems verwechselt hat, deshalb meine Bitte um einen Screenshot.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
10. Nov 2007
Das kommt mir komisch vor, stell doch mal einen Screenshot rein.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
10. Nov 2007
Zum Unterschied kannst Du die Hilfe bemühen ;).Und zu der Fehlermeldung: ändere die Zeileinc(gesamt, StrToFloat(ListView1.Items.SubItems));
mal ab ingesamt := gesamt + StrToFloat(ListView1.Items.SubItems);
Oder eben TryStrToFloat *gg*
Mal wieder zu spät :?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
10. Nov 2007
Wenn die Werte im ersten SubItem stehen:procedure TForm1.Button1Click(Sender: TObject);
var i, gesamt: integer;
begin
gesamt := 0 ;
for i := 0 to ListView1.Items.Count - 1 do
inc(gesamt, StrToInt(ListView1.Items.SubItems));
Label1.Caption := IntToStr(gesamt);
end;