Programm Hilfe

[DeddyH]

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

[boxer123]

Delphi-Quellcode:

wie so

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

[DeddyH]

Genauso.

[boxer123]

und genau das war ist mein problem
ich weiß nicht was er differenzieren soll bei den strings aber ich glaube die differenz soll ausgegeben werden

[DeddyH]

Die Differenz wird doch aus den Zahlen gebildet. Daher musst Du Deine String-Arrays erst einmal in Zahlen umwandeln. Nach der Berechnung wandelst Du das Ergebnis wieder aus einer Zahl in einen String um, den Du Edit2.Text zuweisen kannst. Das ist doch nicht sooo schwer.

[boxer123]

differenz:=Strtoint(a[i])-Strtoint(a[i+1]); // bin mir nicht sicher

[DeddyH]

*seufz* Was steht denn in a und was in b? Ach, ich geb es auf, mach damit, was Du willst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, zahl1, zahl2, differenz, durchlauf: integer;
  park, zahltext: string;
  doppelt: boolean;
  a, b: array [1 .. 4] of string;
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;
  durchlauf := 1;
  repeat
    doppelt := true;
    for i := Low(b) to High(b) - durchlauf do
      if b[i] < b[i + 1] then
        begin
          park := b[i];
          b[i] := b[i + 1];
          b[i + 1] := park;
          doppelt := false;
        end;
    durchlauf := durchlauf + 1;
  until doppelt;
  try
    zahl1 := StrToInt(a[1] + a[2] + a[3] + a[4]);
    zahl2 := StrToInt(b[1] + b[2] + b[3] + b[4]);
    differenz := zahl2 - zahl1;
    Edit2.text := IntToStr(differenz);
  except
    on EConvertError do
      ShowMessage('Ungültige Zahl eingegeben');
  end;
end;

Wobei das so ziemlich die lausigste Möglichkeit ist, das Problem zu lösen, aber Du wolltest es ja so.