Programm Hilfe

[boxer123]

Erzielt dieser Aufbau mein Ziel ?

Delphi-Quellcode:

var
  Form1: TForm1;
  TZiffern=array[1..4] of byte;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*));

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
  end;
  for i:= 1 to 3 do
  for j:=i+1 to 4 do
  if result[1..4]>=zahl[j] then begin
  park:=result[1..4];zahl[i]:=zahl[j];zahl[j]:=park;
  end;
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
  end;
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
  end;
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
  end;
  edit2.text:=inttostr(result[1..4]);
end;

end.