Hej, chcę zamienić dwa obiekty - T żeby referował do T2, a T2 do T. Niestety to nie działa, czemu ? Kompilator mówi że P1 i P2 są nieużywane. Jak to poprawić?
procedure Swap(P1, P2: Pointer);
var
P: Pointer;
begin
P := P1;
P1 := P2;
P2 := P;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
T, T2: TStringList;
begin
T := TStringList.Create;
T2 := TStringList.Create;
Swap(T, T2);
T.Free;
T2.Free;
end;