2 zahlen in edit feldern tauschen

[DeddyH]

2 Denkfehler:
1. Die Übergabe muss ByReference erfolgen, sonst sind alle Änderungen nach Abarbeitung verschwunden (also das Wörtchen var vor die Parameter).
2. Wenn Du das so machst, haben beide Variablen anschließend immer denselben Wert, da Du keinen Puffer verwendest.

Also so:

Delphi-Quellcode:

procedure tausche (var x, y: integer);
var temp: integer;
begin
  temp := x;
  x := y;
  y := temp;
end;

[mkinzler]

Ist eine Zwischenvariable, die den wert von y sichert, da du sie ja dann überschreibst und so x und y den selben wert hätten.

[double_slash]

funktioniert trotzdem nich
schade

[DeddyH]

Mal #11 ausprobiert?

[double_slash]

wat?
ey jungs ich bin über der anfänger^^

[DeddyH]

Ich meinte Beitrag Nr. 11

[grenzgaenger]

Zitat von double_slash:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
        var a, b: Integer;
        begin
        a := IntEdit1.Value;
        b := IntEdit2.Value;
        tausche(a, b);
        IntEdit1.Value := a;
        IntEdit2.Value := b;
        end;

also deinen code, würd ich in etwa so umschreiben..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp: string;
begin
 temp := IntEdit1.text;
 IntEdit1.text := IntEdit2.text;
 IntEdit2.text := temp;
end;

denn, du hast hier gar keinen int... sondern nur text... das hoch- und runter konvertieren kannste dir sparen.