Programm Hilfe

[boxer123]

Was ergibt hier kein sinn?

Delphi-Quellcode:

var
  Form1: TForm1;
  i,j,zahl1,zahl2,differenz:integer;
  park,zahltext,zahltexteins,zahltextzwei:string;
  doppelt:boolean;
  a,b:array[1..4] of string;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
//zerlegung
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
// aufsteigend sortieren
for j:=1 to 4 do
if a[i]>=a[j] then begin
park:=a[i];a[i]:=a[j];a[j]:=park;
zahltexteins:=zahltext;// was in zahltext steht in zahltexteins speichern
end;
// absteigend sortieren
if b[i]<=b[j] then begin
park:=b[i];b[i]:=b[j];b[j]:=park;
zahltextzwei:=zahltext; // was in zahltext steht in zahltextzwei speichern
end;
differenz:=Strtoint(zahltexteins)-Strtoint(zahltextzwei);// differenz der beiden zahlen
edit2.text:=inttostr(differenz);// ausgabe
end;


end.