code : pascal
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type TBarang = record
    id, nama :string
    end;
 
var
  Form1: TForm1;
  barang : TBarang;
 
implementation
 
{$R *.dfm}
 
function MyBarang(id,nama:string):TBarang;
begin
  barang.id := id;
  barang.nama := nama;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  p:TBarang;
begin
  p:= MyBarang('001','Sepatu');
  ShowMessage(p.nama);
end;
 
end.
Parsed in 0.005 seconds, using GeSHi

code : pascal
function MyBarang(id,nama:string):TBarang;
begin
  barang.id := id;
  barang.nama := nama;
  Result := barang; // Function seharusnya punya return value.
end;
Parsed in 0.001 seconds, using GeSHi