2 zahlen in edit feldern tauschen

[double_slash]

hi leute
wollte mal ein program schreiben wo man bei starten in 2 edit felder 2 zahlen eingibt...wenn man dann auf den "tauschen" bitbtn klickt werden die 2 zahlen einfach getauscht...ich komm da grad aber nich weiter...könnt ihr mir da helfen???

mein quelltext sieht bisher so aus:

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;

is das richtig?? kann ja nich sein weil es funktioniert ja nich^^
also wär cool wenn ihr mir helfen könntet
mfg
double_slash

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[DeddyH]

Und wo ist die Prozedur tausche()?

[mkinzler]

Diese ist eigentlich überflüssig:

Delphi-Quellcode:

IntEdit1.Value := b;
IntEdit2.Value := a;

[DeddyH]

Wieso eigentlich Value?

[double_slash]

kannst du mal bitte den vollständigen quelltext reinschreiben bitte?

[mkinzler]

.Text statt .Value

[Dax]

Zitat:

Zitat von double_slash

kannst du mal bitte den vollständigen quelltext reinschreiben bitte?

Nein, du zuerst. Wenn wir nicht wissen, was der wichtige Teil deines Codes tut ("tausche" nämlich), kann dir niemand helfen ;)

[double_slash]

na:

procedure TForm1.tausche(x, y: Integer);
begin
x := y;
y := x;
end;

das soll sie machen

[mkinzler]

Dreieckstausch:

Delphi-Quellcode:

 procedure TForm1.tausche(x, y: Integer);
var
    z: Integer;
begin
    z := y;
    y := x;
    x:= z;
end;

[double_slash]

und was ist jetzt z bei der sache?

[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:

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.