AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

2 zahlen in edit feldern tauschen

Ein Thema von double_slash · begonnen am 18. Nov 2007 · letzter Beitrag vom 18. Nov 2007
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.616 Beiträge
 
Delphi 12 Athens
 
#11

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 17:56
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#12

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 17:56
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.
Markus Kinzler
  Mit Zitat antworten Zitat
double_slash

Registriert seit: 18. Sep 2007
12 Beiträge
 
#13

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 18:12
funktioniert trotzdem nich
schade
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.616 Beiträge
 
Delphi 12 Athens
 
#14

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 18:13
Mal #11 ausprobiert?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
double_slash

Registriert seit: 18. Sep 2007
12 Beiträge
 
#15

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 18:19
wat?
ey jungs ich bin über der anfänger^^
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.616 Beiträge
 
Delphi 12 Athens
 
#16

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 18:20
Ich meinte Beitrag Nr. 11
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
grenzgaenger
(Gast)

n/a Beiträge
 
#17

Re: 2 zahlen in edit feldern tauschen

  Alt 18. Nov 2007, 21:28
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.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz