type
PMyList = ^AList;
AList = record
I: Integer;
C: Char;
end;
var
MyList: TList;
ARecord: PMyList;
B: Byte;
Y: Word;
begin
MyList := TList.Create;
try
New(ARecord);
ARecord^.I := 100;
ARecord^.C := 'Z';
MyList.Add(ARecord); {Add integer 100 and character Z to list}
New(ARecord);
ARecord^.I := 200;
ARecord^.C := 'X';
MyList.Add(ARecord); {Add integer 200 and character X to list}
{ Now paint the items onto the paintbox}
Y := 10; {Variable used in TextOut function}
for B := 0 to (MyList.Count - 1) do
begin
ARecord := MyList.Items[B];
Canvas.TextOut(10, Y, IntToStr(ARecord^.I)); {Display I}
Y := Y + 30; {Increment Y Value again}
Canvas.TextOut(10, Y, ARecord^.C); {Display C}
Y := Y + 30; {Increment Y Value}
end;
{ Cleanup: must free the list items as well as the list }
for B := 0 to (MyList.Count - 1) do
begin
先定义一个记录
TDemo = record
astr1 : string;
astr2 : string;
end;
然后代码如下:
function TForm1.setValue(var aDemo : TDemo) : Boolean;
begin
result := true;
try
aDemo.astr1 := 'astr1';
aDemo.astr2 := 'astr2';
except
result := false;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
aDemo : TDemo;
begin
try
if setValue(aDemo) then
begin
Memo1.Lines.Add(aDemo.astr1);
Memo1.Lines.Add(aDemo.astr2);
end;
except
Memo1.Lines.Add('wrong');
end;