Also mit der Funktion komme ich nun klar...
Jedoch da ich noch nie so ein und ausgegeben habe da ein fettes Problem.
!! Wie bzw. Wo schreibe ich die Eingabe ins EditFeld E1? !!
!! Wo bzw. Wie gebe ich dann das Ergebnis aus? In welcher Procedure? !!
Delphi-Quellcode:
function nfak (n:integer):integer;
var fak:longint;
var i:byte;
begin
fak:=1;
for i:=1 to n do begin
fak:=fak*i;
end;
nfak:=fak;
end;
procedure TForm1.B1Click(Sender: TObject);
begin
if RB1.Checked then begin
?????????
?????????
end;
end;
Ich hab alles mögliche probiert, immer regt sich Mr. Compiler auf...
Danke im Voraus
Mlg
EDIT: Vor allem wie gebe ich ein RichEdit (in meinem Fall RE1) aus? Mit Lines [x] oder mit .text?