hallo,
auch wenn ich noch vor ein paar stunden eine frage zu diesem programm gestellt habe, hab ich doch jetzt eine ganz andere:
Ich möchte mal hören, ob mein schreibstil in delphi gut oder schlecht ist. ich kam drauf, indem ich mir mal andere sources angeschaut habe, die irgendwie ganz anders aufgebaut sind als meine codes!
Ich würd mich freuen wenn sich mal jemand den code angucken und sagen könnte was ich besser/anders machen sollte.
danke an alle die sich die mühe machen!!!
btw, das ganze ist zur primfaktorzerlegung gedacht.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var m:int64;
Form1: TForm1;
implementation
{$R *.dfm}
function pruefen(n:int64):boolean;
var x:int64;
p:boolean;
begin
p:=true;
x:=round(n/2);
if n>=2
then
begin
while x>1
do
begin
if (n
mod x) = 0
then
begin
p:=false;
break;
end;
x:=x-1;
end;
end
else p:=false;
if p=true
then pruefen:=true
else pruefen:=false;
end;
procedure zerlegen(n:int64);
var x:int64;
begin
x:=2;
while (n
mod x<>0)
do x:=x+1;
if length(form1.Label2.Caption)>0
then form1.Label2.Caption:=form1.Label2.Caption+'
*';
form1.Label2.Caption:=form1.Label2.Caption+inttostr(x);
if pruefen(n
div x)=false
then zerlegen(n
div x);
m:=m*x;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=1;
label2.Caption:='
';
if pruefen(strtoint(edit1.Text))=true
then label2.Caption:=edit1.Text+'
ist eine Primzahl!'
else
begin
zerlegen(strtoint(edit1.Text));
label2.Caption:=label2.Caption+'
*'+inttostr(strtoint(edit1.Text)
div m);
end;
end;
end.