Programm Hilfe

[DeddyH]

Wenn Du jetzt noch die ganzen globalen Variablen (bis auf Form1) rauswirfst und stattdessen als lokale deklarierst, dann sollte das Ganze funktionieren. Und wenn Du dann auch noch endlich ordentlich einrückst, wird das sogar lesbar.

[boxer123]

wie soll ich jetzt die differenz bilden.

Delphi-Quellcode:

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

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
durchlauf:=1;
repeat
doppelt:=true;
for i:= Low(a) to High(a) - durchlauf do
if a[i] > a[i+1] then begin
park:=a[i];a[i]:=a[i+1];a[i+1]:=park;
doppelt:= false;
end;
durchlauf :=durchlauf +1;
until doppelt;
differenz:= Strtoint(park)-durchlauf;
edit2.text:=durchlauf(differenz);

[boxer123]

aber es muss doch im edit 2 erscheinen ^^

[DeddyH]

Indem Du Deine Strings (die Du ja unbedingt haben wolltest) in Zahlen umwandelst und subtrahierst.

[boxer123]

aber welche im algho steht nicht wo ich z.b die größte zahl gespeichert habe u.s.w

[DeddyH]

Ich frag mal ganz dumm: verstehst Du eigentlich, was Du da tust? Wenn nicht, dann löse die Aufgabe doch erst einmal mit Papier und Stift (Schreibtischtest hatte ich ja schon einmal angesprochen).

[boxer123]

ich verstehe alles auser das mit der differenz und wie man das alles in edit 2 fenster ausgibt also das ergebnis

[DeddyH]

StrToInt und IntToStr, mehr brauchst Du dafür nicht.

[boxer123]

Delphi-Quellcode:

wie so

Differenz:=Strtoint(..)-Strtoint(..);
Edit2.text:=InTtoStr(..);

[DeddyH]

Genauso.