Указатель на запись, содержащей поля типа 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]

Спасибо!

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