Procedure Switch

[Alex Cones]

Хочу сделать процедуру Switch для смены местами двух объектов или переменных. Типа такого:

Procedure Switch(Var First, Second : Variable);
Var
 PP : Variable;
Begin
 PP := First;
 First := Second;
 Second := PP;
End;

Думаю, что там надо использовать GetMem и FreeMem, вот только я не силен в таких делах.

P.S Надеюсь объяснил понятно, я сейчас не очень в форме. Температурю.

[Dj_smart]

Ну как вариант примени указатели, тогда чтобы обменять их местами просто перепиши указатели, а не сами объекты

[Alex Cones]

А кого использовать в качестве PP?

[Dj_smart]

pointer, pointer

[Alex Cones]

Procedure Switch(Var First, Second : ... );
Var
 PP : Pointer;
Begin
 PP := @First;
 First := Second;
 Second := ^PP;
End;

Так, чтоль? Тогда вопрос, что использовать вместо многоточия?

[Dj_smart]

Procedure Switch(var First, Second : pointer);
Var
 PP : Pointer;
Begin
 PP := First;
 First := Second;
 Second := PP;
End;

procedure TForm1.Button1Click(Sender: TObject);
var obj1,obj2:TStringList;
    pp1,pp2:pointer;
begin
  obj1:=TStringList.Create;
  obj1.Text:='TEXT1';
  New(pp1); pp1:=@obj1;
  obj2:=TStringList.Create;
  obj2.Text:='TEXT2';
  New(pp2); pp2:=@obj2;

  showmessage('OBJ1 - '+TStringList(pp1^).Text+', OBJ2 - '+TStringList(pp2^).Text);
 Switch(pp1,pp2);
 showmessage('OBJ1 - '+TStringList(pp1^).Text+', OBJ2 - '+TStringList(pp2^).Text);
  obj1.Free;
  obj2.Free;
end;

Алсо процесс создания указателей к обьектам можно автоматизировать

[Stilet]

Alex Cones

А как ты собираешся узнавать размер меняемых данных?
И зачем это?

[Alex Cones]

И зачем это?

Очень часто приходится менять местами две величины. Причем часто они имеют нестандартные типы. Вот и пытаюсь наколдовать.

А как ты собираешся узнавать размер меняемых данных?

А смысл? Кстати, нашел, как называется тот тип - Variable. Не лучше ли его будет заюзать?

[Sanprof]

var
  pp: Variant;
  First, Second: Variant;
begin
  First := 'String';
  Second := 1;
  ShowMessage('First = ' + String(First) + #13 +
              'Second = ' + String(Second));
  pp := First;
  First := Second;
  Second := pp;
  ShowMessage('First = ' + String(First) + #13 +
              'Second = ' + String(Second));

[Sibedir]

procedure Switch1 (var First, Second; ASize: Integer);
var
  i: Integer;
  f, s: PChar;
  c: Char;
begin
  f := PChar(@First);
  s := PChar(@Second);
  for i := 0 to ASize-1 do begin
    c := f[i];
    f[i] := s[i];
    s[i] := c;
  end;
end;

procedure Switch2 (var First, Second; ASize: Integer);
var
  p: Pointer;
begin
  p := SysGetMem (ASize);
  Move (First , p^    , ASize);
  Move (Second, First , ASize);
  Move (p^    , Second, ASize);
  SysFreeMem (p);
end;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  r1, r2: Real;
  i1, i2: Integer;
  s1, s2: String;
begin
  r1 := 1623;
  r2 := -2.847e-5;
  Switch1 (r1, r2, SizeOf(r1));
  ShowMessage (FloatToStr (r1) + #13 + FloatToStr (r2));

  i1 := 1623;
  i2 := 2847;
  Switch2 (i1, i2, SizeOf(i1));
  ShowMessage (IntToStr (i1) + #13 + IntToStr (i2));

  s1 := '1623';
  s2 := '2847';
  Switch2 (Pointer(s1), Pointer(s2), Length(s1));
  ShowMessage (s1 + #13 + s2);
end;