14-08-2019, 07:07 AM
PHP كود :
type
TMyRec = record
Str : String;
Boo : Boolean;
end;
function DoQuery(AQuery: String): TMyRec;
begin
// do stuff
Result.Str := 'hello';
Result.Boo := False;
end;
procedure CallQuery;
begin
with DoQuery('this is my query') do
if Boo then
Edit1.Text := Str;
end;