Hi Leute... Leider komme ich gar nicht damit zusammen, ausgeben pack ich nicht und an den Funktionen happats glaub ich auch.. Ich bitte um ein paar Tipps, Quellcode unten.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 =
class(TForm)
E1: TEdit;
Panel1: TPanel;
RB1: TRadioButton;
RB2: TRadioButton;
RB3: TRadioButton;
B1: TButton;
B2: TButton;
RE1: TRichEdit;
procedure B2Click(Sender: TObject);
procedure B1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function nfak (x:integer):Extended;
var i:byte;
begin
for i:=1
to x
do begin
nfak:=x+1;
end;
end;
function einsfak (y:integer):Extended;
var h:byte;
begin
for h:=1
to y
do begin
einsfak:=(y+1)/y;
end;
end;
procedure TForm1.B2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.B1Click(Sender: TObject);
begin
if RB1.Checked
then begin
RE1.Text:=nfak(IntToStr(E1.text));
end;
end;
end.
und bitte nicht auslachen... mfg :/