coba sederhanakan fct tsb sbb:
Function NamaHari(Tgl :TDateTime):String;
Begin
case DayOfWeek(Tgl) of
1 : Result:= 'Minggu';
2 : Result:= 'Senin';
3 : Result:= 'Selasa';
4 : Result:= 'Rabu';
5 : Result:= 'Kamis';
6 : Result:= 'Jum''at';
7 : Result:= 'Sabtu';
end;
end;
----- Original Message -----
From: "Bayu Darmawanto" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, October 26, 2003 6:25 AM
Subject: [Delphindo] Invalid Pointer Operation
> Rekan-rekan sekalian,
>
> Saya coba bikin file dll sederhana.
> Terus ketika saya panggil file dll tersebut di modul yang saya buat,
> hasilnya juga berhasil/muncul.
>
> Tapi yang menjadi pertanyaan saya yang membuat saya bingung selalu muncul
> message error 'Invalid Pointer Operation'.
> Setelah saya debugging pun errornya itu nggak menunjuk ke baris program
> tertentu.
>
> Sebelumnya saya ucapkan terima kasih.
>
>
> Berikut listting programnya.
> {Ini File Dllnya coba.dll}
>
> library Coba;
> uses
> SysUtils,
> Classes;
>
> Function NamaHari(Tgl :TDateTime):String; Export;
> Begin
> case DayOfWeek(Tgl) of
> 1 : Result:= 'Minggu';
> 2 : Result:= 'Senin';
> 3 : Result:= 'Selasa';
> 4 : Result:= 'Rabu';
> 5 : Result:= 'Kamis';
> 6 : Result:= 'Jum''at';
> 7 : Result:= 'Sabtu';
> end;
> End;
> Exports NamaHari;
> begin
> end.
>
>
>
> {Ini Form Yang untuk memanggil file dll tersebut }
> unit Form1;
> interface
> uses
> Windows, ...;
> Type ...
>
> implementation
> {$R *.dfm}
> Function NamaHari(Tgl:TDateTime):String;Far;External 'coba';
>
> procedure TForm1.Button1Click(Sender: TObject);
> Var
> begin
> MessageDlg(Namahari(Now),mtWarning,[MBOK],0);
> end;
> end.
>
>
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
