Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2014.09.28;
Скачать: CL | DM;

Вниз

Указатель на запись, содержащей поля типа string, как параметр фу   Найти похожие ветки 

 
Некто   (2014-02-22 12:34) [0]

ДВС! Мне нужно передать в функцию параметр-указатель на запись, некоторые поля которой имеют тип string.
Возник вопрос: так можно, утечек никаких не возникнет?

type
 PMyRec = ^TMyRec;
 TMyRec = packed record
   intVar, intVar1: Integer;
   S, S1, S2: string;
 end;

function Test(const PRec: PMyRec): string;
begin
 if PRec <> nil then
   Result := PRec^.S1
 else
   Result := "nil";
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 MR: TMyRec;
begin
 MR.S1 := "MR.S1 = ok";
 ShowMessage(Test(@MR));
end;


 
Некто   (2014-02-22 12:37) [1]

Забыл: string = AnsiString (D7)


 
jack128_   (2014-02-22 13:49) [2]


> так можно, утечек никаких не возникнет?

можно, утечек не будет.


 
Некто   (2014-02-22 14:03) [3]


> jack128_   (22.02.14 13:49) [2]

Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2014.09.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
15-1392755402
Юрий
2014-02-19 00:30
2014.09.28
С днем рождения ! 19 февраля 2014 среда


1-1328196325
CRLF
2012-02-02 19:25
2014.09.28
Глубина цвета в TImageList


15-1393101003
Юрий
2014-02-23 00:30
2014.09.28
С днем рождения ! 23 февраля 2014 воскресенье


15-1392713286
cpp_dev
2014-02-18 12:48
2014.09.28
Может ли кто-нибудь кинуть прямую ссылку на С++ компилятор


15-1384507806
Всеволод
2013-11-15 13:30
2014.09.28
Embarcadero RAD Studio XE5 с Android