Halli hallo,
ich habe ein Problem und zwar habe ich als Hausaufgabe auf: die springenden Frösche zu programmieren. Was bedeutet man hat 3 editFelder, 3 Listboxen, eine Botton "Springe" und einen "Lösche". In die drei EditFelder werden zahlen eingegeben. So nun sollen sich die zahlen mit einem bestimmten Faktor verteilen, sodass irgendswann die Zahlen sich nicht mehr vertauschen lassen und alle den jeweiligen Wert beibehalten. Hier der Source:
var
Form2: TForm2;
a,b,c:integer;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
listbox1.Items.add(edit1.Text);
listbox2.Items.add(edit2.Text);
listbox3.Items.add(edit3.Text);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
listbox1.Items.Clear;
listbox2.Items.clear;
listbox3.items.Clear;
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
das habe ich bis jetzt nur ich weiß nicht wie ich die "springen" lassen kann... BITTE HELFT MIR!!
Gruß ko3rby
