Max tal ?

Hmmm Kan ikke hjælpe med selve Delphi'en, men med matematikken tror jeg det går:

Du kan dividere samtlige ting (altså træ med træ, ler med ler osv.) og så finde det mindste tal. Det runder du så ned, og så har du hvor mange soldater du kan købe...!

procedure TForm1.Button1Click(Sender: TObject);
var ResultInt:Integer ;
begin
ResultInt := StrToInt(edit1.text) div StrToInt(edit2.text) ;
ShowMessage('Værdien i variablen ResultInt er : '+(IntToStr(ResultInt)));
end;

Det ville dog nok være bedre at bruge en Float i stedet for Integer

Du ville gøre det væsentligt lettere for dig selv hvis du gemte data i den type det reelt har i stedet for at gemme det i edit felter. Generelt skal du kun bruge GUI til at vise brugeren data der er i programmet og til at indføre data i programmet og ikke som en data holder.

Ved ikke om det gået op for dig men når du har gjort dette:
100:1000 = 10
130:500 = 3 (3,48)
55:1200 = 21 (21,81)
30: 200 = 6 (6,66)

skal du da vælge det mindste af de 4 tal 10,3,21 og 6, altså skal vælge 3, 3 er så det største antal soldater du kan bygge.

Når du bruger typen 'real' skal du bruge '/' til at dividere, og du kan runde af med round(). Bagefter kan du så tjekke hvilken af de 4 er mindste.

var aktuel_trae, aktuel_ler:real;
resultat1, resultat2: integer;

begin
resultat1 := round(aktueltrae / 100);
resultat2 := round(aktuel_ler / 130);
end;

Når du har fundet de 4 resultater kan du finde den mindste værdi og udskrive det til label1.

100:1000 = 10
130:500 = 3 (3,48)
55:1200 = 21 (21,81)
30: 200 = 6 (6,66)

Og hva så ?

Hvorfor virker den her ik ?

procedure TForm1.Button1Click(Sender: TObject);
var ResultInt:Integer ;
begin
ResultInt := edit1.text div edit2.text ;
ShowMessage('Værdien i variablen ResultInt er : '+(IntToStr(ResultInt)));
end;

Nogle som kan få den til at virke ?