Форум: "Прочее";
Текущий архив: 2014.09.28;
Скачать: [xml.tar.bz2];
ВнизУказатель на запись, содержащей поля типа 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.002 c