img
00:00
imgDRKB online - Быстрый способ обмена значений в 2х переменных.
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  Общие вопросы
  Объектное ориентирование
  Работа со строками
  Работа с датами и временем
  Работа с числами
  Работа с битами
  Работа с массивами
  Работа с указателями, память
  Множества, записи и перечисляемые типы
  RTTI и другие трюки с информацией о классах, модулях и т.п.
  Взаимодействие с другими языками
  Threads
  Работа с коллекциями
  RTL Delphi (краткий справочник)
  Базовые классы
  Скрипты, компилляторы и связанные с ними вопросы
  Лекции по построению компилятора на Pascal
  Расчет введенной формулы
  Использование Microsoft ScriptControl (статья)
  Вокруг и около Паскаля или другие компилляторы Дельфи/Паскаль
  VCL
  Системные функции и WinAPI
  Базы данных
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [drkb=67] Комментариев: 3
Быстрый способ обмена значений в 2х переменных.


delphi
procedure SwapVars1(var u, v; Size: Integer);
var
  x: Pointer;
begin
  GetMem(x, Size);
  try
    System.move(u, x^, Size);
    System.move(v, u, Size);
    System.move(x^, v, Size);
  finally
    FreeMem(x);
  end;
end;


procedure SwapVars2(var Source, Dest; Size: Integer);
  // By Mike Heydon, mheydon@eoh.co.za
begin
  asm
     push edi
     push esi
     mov esi,Source
     mov edi,Dest
     mov ecx,Size
     cld
@1:
     mov al,[edi]
     xchg [esi],al
     inc si
     stosb
     loop @1
     pop esi
     pop edi
  
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SwapVars1(X1, X2, SizeOf(Integer));
end;





@Drkb::00074
Взято с сайта http://www.swissdelph...ndex.php

delphi
var
X1, X2: Byte;
begin
X1 := X2 xor X2;  
X2 := X1 xor X2; // X2 = X1
X1 := X1 xor X2; // X1 = X2



Автор ___ALex___
http://forum.pascal.dax.ru

@Drkb::00075
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
03-07-2019 16:00
Programmer
Привет
19-06-2019 23:35
Eri
Всем привет!!
16-06-2019 20:14
Programmer
спустя 10 дней
06-06-2019 20:41
Programmer
Летоооо
23-04-2019 18:44
Programmer
уже конец апреля. Через март, карл!
19-03-2019 08:21
antonn
Быстро время летит smiley
18-03-2019 09:43
Programmer
ыы уже март
14-01-2019 19:13
Programmer
Аахахаха общаемся через время
14-01-2019 19:13
Programmer
Нет
19-11-2018 09:28
antonn
Ну и как успехи, написал? smiley
Статистика
 СегодняВсего
Посетителей2152069416
Запросов11194319748225
Online
Пользователей0
Гостей38
imgimgimgimg
 
img
     00:00