Hallo
ich habe bisher ein Programm geschrieben, wo man per EDIT Feld eine Zahl mit komma also zb. 3,65 in eine Listbox einträgt. Wenn man nun mehrere einträgt sollen 2 Zahlen verglichen werden auf die Kommastellen und diese soll dann eine ungerade Schnapszahl ergeben. Also z.b ,33. Sobald eins gefunden wurde, soll es angezeigt werden in einem Label. Also die Anzahl der gefundenen Schnapszahlen. Aus den Zahlen sollen so viele wie möglich rauskommen. Bisher ist mein Code so:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
ListBox1: TListBox;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
cent,summe:real;
begin
cent:=strtofloat(edit1.text);
listbox1.Items.Add(floattostr(cent));
for i:=0 to ListBox1.Items.Count -1 do
summe := strtofloat(ListBox1.Items[i]) + summe;
Label2.Caption := floattostr(summe);
end;
end. |
kann da jemand helfen wie man die Zahlen in der Listbox vergleichen kann?
![Antworten [gesperrt]](./graphics/navbar/reply.png)
chrisw