Работа с указателями, память

Method pointers --> function pointers

2013-10-27T00:19:05+07:00

Способ преобразования указателей на указатели на функции

Часто вам нужно указатель на функцию для функции обратного вызова. Но то, что ,
если вы хотите указать метод обратного вызова , как? Преобразованиеметода
Указатель на функцию указателя не является тривиальной задачей, оба типа
incomatible друг с другом. Хотя у вас есть возможность преобразования ,

Подробнее...

StrAlloc и GetMem

2013-10-27T02:30:08+07:00

StrAlloc непосредственно использует GetMem, поэтому обе функции живут за счет Кучи. StrAlloc имеет преимущество: он распределяет на два байта больше, чем вы просите и там хранит размер размещенного блока. Поэтому StrDispose знает сколько памяти освободить и вы можете этого не помнить (в отличие от GetMem/FreeMem). Не смешивайте при работе эти две функциональные пары, иначе вы будете потрясены количеством возникающих ошибок!

Арифметика указателей

2013-10-19T17:15:44+07:00

Сначала короткое объяснение арифметике указателя. Когда вы имеете дело с динамическими страницами памяти, то все, что вы имеете - это указатели на начала блоков памяти. Вы хотите просмотреть всю строку памяти, чтобы понять какие функции необходимы для работы с данными, хранящимися в памяти? Это возможно путем изменения места в памяти, на которое указывает указатель. Это называется арифметикой указателя.

Подробнее...

Быстрое сравнение памяти

2013-10-27T02:11:09+07:00

Я ищу функцию, которая была бы эквивалентом сишной функции memcmp.

Я создал следующие две функции, существенно повышающие произвотельность в приложениях, активно работающих с данными. Вам нужно всего-лишь обеспечить контроль типов и границ допустимого диапазона, все остальное они сделают с любым типом данных лучше нас :-) .

Code:

function Keys_are_Equal(var OldRec, NewRec;

KeyLn : word): boolean; assembler;

asm

PUSH DS

MOV AL,01

CLD

LES DI,NewRec

LDS SI,OldRec

MOV CX,KeyLn

CLI

REPE CMPSB

STI

JZ @1

XOR AL,AL

@1:

POP DS

end;

Code:

function First_Key_is_Less(var NewRec, OldRec;

Keyln : word): boolean; assembler;

asm

PUSH DS

MOV AL,01

CLD

LES DI,NewRec

LDS SI,OldRec

MOV CX,KeyLn

CLI

REPE CMPSB

STI

JZ @5

JGE @6

@5: XOR AL,AL

@6: POP DS

end;

Динамическое распределение памяти

2013-10-27T02:26:29+07:00

Code:

uses WinCRT;

procedure TForm1.Button1Click(Sender: TObject);

var

MyArray: array[0..30] of char;

b: ^char;

i: integer;

begin

StrCopy(MyArray, 'Delphi World - это круто!!!');

b := @MyArray;

for i := StrLen(MyArray) downto0do

begin

write(b^);

inc(b, sizeof(char));

end;

Подробнее...

Использование указателей на целое

2013-10-19T17:16:47+07:00

Сначала вы должны создать тип:

Code:

Type Pinteger : ^Integer;

Var MyPtr : Pinteger;

Мне кажется, что в начале вы использовали плохой пример, имеет смысл использовать 32-битный указатель для 16-битной величины или распределять 10 байт для переменной.

Pascal позволяет вам использовать методы NEW и DISPOSE, которые автоматически распределяют и освобождают правильные размеры блока.

Например:

Подробнее...

Как избежать использования неактуальных указателей

2013-10-27T00:04:19+07:00

Я создал простой модуль и разработал несколько простых методов, помогающих избежать использования неактуальных (в оригинале было "stale" - черствый, несвежий) указателей. Я настоятельно рекомендую добавить во все модули, содержащие указатели или объектные переменные секцию инициализации ('initialization') и установить все указатели (объектные переменные это те же реальные указатели) в nil. Что это даст:

Подробнее...

Освобождение памяти

2013-11-02T20:30:14+07:00

Тут мы рассмотрим несоклько примером освобождения памяти.

Подробнее...

Очистить переменную в оперативной памяти

2013-11-02T20:35:54+07:00

Если вы хотите удалить переменную, что никакая другая программа не может прочитать из памяти больше, просто используйте эту функцию:

Code:

ZeroMemory(Addr(yourVar), SizeOf(yourVar));

ZeroMemory(Addr(yourStr), Length(yourStr));

// ZeroMemory(Address of the variable, Size of the variable);

Очень полезно, если вы задали пароль, и вы хотите, что никто другой не может его получить.

Получение размера памяти выделенный под Pointer

2013-11-02T20:48:06+07:00

Code:

{ **** UBPFD *********** by delphibase.endimus .com ****

>> Получение размера памяти выделенный под Pointer

Функция возврящает количество байт выделенных под Pointer.

Размер округляется в большую сторону до DWORD (4 байт).

Зависимости: Windows

Автор: Мироводин Дмитрий, mirovodin mail.ru

Дата: 16 октября 2013 г.

***************************************************** }

function GetPointerSize(const P: Pointer): Integer;

begin

if P = nilthen

Result := -1

else

Result := Integer(Pointer((Integer(p) - 4))^) and$7FFFFFFC - 4;

end;

Пример использования:

var

P: pointer;

PSize: integer;

begin

GetMem(P, 1024); // Размер кратен 4

PSize := GetPointerSize(P);

ShowMessage(inttostr(PSize)); // Результат 1024 байта

FreeMem(P);

end;

...

var

P: pointer;

PSize: integer;

begin

// Размер НЕ КРАТЕН 4

GetMem(P, 6);

PSize := GetPointerSize(P);

// Результат 8 байта т.к. идет округление

ShowMessage(inttostr(PSize));

FreeMem(P);

end;

Получение ссылки на экземпляр класса

2013-10-27T00:09:58+07:00

...мне также понадобилось в подпрограмме получить ссылку на дочернее MDI-окно без сообщения подпрограмме с каким конкретно классом MDI необходимо работать. Что я сделал: я передавал в виде параметров тип дочернего MDI-окна и ссылку как нетипизированную переменную и затем обрабатывал это в подпрограмме.

Вот пример. Эта подпрограмма работает с дочерним окном, которое может иметь только один экземпляр. Если оно не открыто, подпрограмма создаст его, если оно открыто, оно переместит его на передний план.

Подробнее...

Потеря памяти

2013-11-02T20:49:49+07:00

Если Ваша программа после завершенмя " съест" некоторое количество памяти, Windows тактично об этом умолчит, и ошибка останется не найденной. Поэтому я рекомендую на этапе разработки, в файл проекта вставлять модуль checkMem, который отследит некорректную работу с памятью. Вставлять его нужно первым, для обеспечения чистоты эксперимента. Текст модуля:

Code:

unit checkMem;

interface

implementation

uses sysUtils, dialogs;

var HPs : THeapStatus;

var HPe : THeapStatus;

var lost: integer;

initialization

HPs := getHeapStatus;

finalization

HPe := getHeapStatus;

Lost:= HPe.TotalAllocated - HPs.TotalAllocated;

if lost > 0thenbegin

beep;

ShowMessage( format('lostMem: %d',[ lost ]) );

end;

end.

Пример работы с указателями

2013-10-27T00:05:57+07:00

Code:

{©Drkb v.3(2007): drkb ru}

var

p1 : ^String;

s1 : String;

begin

s1 := 'NotTest';

new (p1);

p1 := @s1;

p1^ := 'Test';

Label1.Caption := s1

Принципы работы с памятью в системе Windows32

2013-11-02T20:51:50+07:00

Автор: Павел

Оглавление

1. Введение

В данной статье изучаются принципы работы с памятью в системе Windows 32. Исследуется проблема накопления потоковых данных в специальных потоковых хранилищах. Работа с памятью является одной из важнейших функций любой программы. Выделение участков памяти для структур программы должно быть эффективным, поэтому программист должен хорошо разбираться в особенностях этого процесса.

В статье приводятся только основные принципы работы с памятью в системе Windows 32. Для подробного изучения всех тонкостей этого сложного процесса читатель может обратиться к специальной литературе. Особенно хочется отметить книгу: Дж.Рихтер, "Windows для профессионалов".

Подробнее...

Связанный Список, Таблица Памяти

2013-11-02T20:57:29+07:00

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TMyObjectPtr = ^TMyObject;

TMyObject = record

First_Name: String[20];

Last_Name: String[20];

Next: TMyObjectPtr;

end;

type

TForm1 = class(TForm)

bSortByLastName: TButton;

bDisplay: TButton;

bPopulate: TButton;

ListBox1: TListBox;

bClear: TButton;

procedure bSortByLastNameClick(Sender: TObject);

procedure bPopulateClick(Sender: TObject);

procedure bDisplayClick(Sender: TObject);

procedure bClearClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

pStartOfList: TMyObjectPtr = nil;

{List manipulation routines}

procedure SortMyObjectListByLastName(var aStartOfList: TMyObjectPtr);

function CreateMyObject(aFirstName, aLastName: String): TMyObjectPtr;

procedure AppendMyObject(var aCurrentItem, aNewItem: TMyObjectPtr);

procedure ClearMyObjectList(var aMyObject: TMyObjectPtr);

procedure RemoveMyObject(var aStartOfList, aRemoveMe: TMyObjectPtr);

function AreInAlphaOrder(aString1, aString2: String): Boolean;

implementation

{$R *.DFM}

procedure TForm1.bClearClick(Sender: TObject);

begin

ClearMyObjectList(pStartOfList);

end;

procedure TForm1.bPopulateClick(Sender: TObject);

var

pNew: TMyObjectPtr;

begin

{Initialize the list with some static data}

pNew := CreateMyObject('Suzy','Martinez');