AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Vertauschen von Pointern in einer Funktion
Thema durchsuchen
Ansicht
Themen-Optionen

Vertauschen von Pointern in einer Funktion

Ein Thema von Alexander Roth · begonnen am 9. Mär 2007 · letzter Beitrag vom 9. Mär 2007
Antwort Antwort
Seite 2 von 2     12   
brechi

Registriert seit: 30. Jan 2004
823 Beiträge
 
#11

Re: Vertauschen von Pointern in einer Funktion

  Alt 9. Mär 2007, 18:21
Um es mal aufzulösen:

Pointer kannst du so nicht vertasuchen weil sie Fest im Programmcode drinstehen.
Alle Methoden die hier gezeigt wurden beruhen auch nur darauf den kompletten Speicher zu tauschen.

@3_of_8: Mach das mal mit Strings unterschiedlicher größe, dann wirst Spass bekommen.

@Threadersteller, einfach ganz normal Swappen wie man das immer macht d.h. mit einer TemVariable, das geht soagr ohne Probleme für Strings.
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#12

Re: Vertauschen von Pointern in einer Funktion

  Alt 9. Mär 2007, 18:57
@Manuel

Delphi-Quellcode:
procedure Surprise (var x);
begin
  ShowMessage (IntToStr(SizeOf(x)));
end;
Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#13

Re: Vertauschen von Pointern in einer Funktion

  Alt 9. Mär 2007, 18:59
Okay, das geht dann wohl nicht. Dann machen wirs halt so, wir sind ja flexibel:
Delphi-Quellcode:
procedure SwapMemory(var a, b; size: Cardinal);
var I, max: Cardinal;
begin
  I:=0;
  max:=(ALength div 4)*4-1;
  while I<=max do
  begin
    PCardinal(Cardinal(ADst)+I)^:=PCardinal(Cardinal(ASrc)+I)^;
    inc(I, 4);
  end;
  case ALength+4-I of
    1: PByte(Cardinal(ADst)+I)^:=PByte(Cardinal(ASrc)+I)^;
    2: PWord(Cardinal(ADst)+I)^:=PWord(Cardinal(ASrc)+I)^;
    3:
      begin
        PWord(Cardinal(ADst)+I)^:=PWord(Cardinal(ASrc)+I)^;
        PByte(Cardinal(ADst)+I+2)^:=PByte(Cardinal(ASrc)+I+2)^
      end;
  end;
end;


@brechi: Solange es keine statischen Strings sind, dürfte das kein Problem sein.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat
Benutzerbild von Alexander Roth
Alexander Roth

Registriert seit: 17. Mai 2004
Ort: Kenn
574 Beiträge
 
Turbo Delphi für Win32
 
#14

Re: Vertauschen von Pointern in einer Funktion

  Alt 9. Mär 2007, 22:09
Zitat von brechi:
Um es mal aufzulösen:

Pointer kannst du so nicht vertasuchen weil sie Fest im Programmcode drinstehen.
Alle Methoden die hier gezeigt wurden beruhen auch nur darauf den kompletten Speicher zu tauschen.

@3_of_8: Mach das mal mit Strings unterschiedlicher größe, dann wirst Spass bekommen.

@Threadersteller, einfach ganz normal Swappen wie man das immer macht d.h. mit einer TemVariable, das geht soagr ohne Probleme für Strings.
Ok. Das war nämlich die zentrale Frage. Es wäre nämlich sehr elegant gewesen, nur die Pointer zu tauschen. Wenn dies nicht geht ist wohl die normale Temp Variable das einfachste.

Danke für all eure Beiträge.

Gruß Alexander



PS: 3_of_8's Methode schaue ich mir mal genau an, damit ich dort auch jeden Punkt verstehe.
Alexander Roth
Ich bin umgestiegen auf: Lazarus und Ubuntu! Alles OpenSource!

Besuch doch mal: www.roth.us.ms
  Mit Zitat antworten Zitat
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#15

Re: Vertauschen von Pointern in einer Funktion

  Alt 9. Mär 2007, 22:15
Also, ein dynamischer String ist ein array of Char. Ein array of Char ist ein Zeiger auf eine Folge von Chars, davor steht die Länge. Jetzt lege ich einfach den Pointer des ersten Arrays auf den des zweiten Arrays und vice versa. Wo soll da ein Problem sein?
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  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 09:59 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