Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.003 c