Indtastede værdier

Hvis du fx har lavet et "label" kan du få værdien af det brugeren har indtastet med:
Labelnavn.Caption

og hvis det eksempelvis er et almindeligt tekstfelt:
tekstfelt.Text

procedure TForm1.Button1Click(Sender: TObject);
var
resultat : integer;
begin
resultat := strtoint(edit1.Text) * strtoint(edit2.Text);
showmessage(inttostr(resultat));

end;

Stoney

Jeg kan lige prøve at skrive opgaven ned fra min lærebog:

"Lav et program som beder en person om at indtaste et vilkårligt antal tal mellem 0 og 9. Når brugeren indtaster tallet 0 skal summen og produktet af de indtastede tal vises på skærmen. Brugeren skal indtaste mindst ét tal."

Og jeg er på et meget tidligt tidspunkt i læretiden så hvis I kunne begrænse jer til nogle betingede sætninger og løkkestrukturer så vil jeg blive glad. ;-)

showmessage(inttostr(strtoint(edit1.text) + strtoint(edit2.text)));

Kan det ikke skrives på andre måder? Fx. med While-Do, Repeat-Until, For-Do, If-Then-Else eller Case-Else-End? Længere er jeg ikke kommet.

//Prøv at skrive 2 tal i edit1,2 som give 3
//dette er en if sætning i delphi
if strtoint(edit1.text) + strtoint(edit2.text) = 3 then
showmessage('resultat = 3');

//case i delphi
case strtoint(edit1.text) + strtoint(edit2.text) of
1:showmessage('1');
5:showmessage('5');
end;


//for loop i delphi
var
i:integer;
begin
for i := 0 to 10 do
showmessage(inttostr(I));
end;