nah saya menggunakan fungsi yang saya sebutkan sebelumnya, jadi setiap misalkan kasir selesai mengisikan data 1 item dan ditekan enter, fungsi itu di panggil, dan print item itu saja, kecuali fungsi itu dipanggil dari looping, ya pasti sampai looping itu selesai baru printnya selesai.
Best regards,
Sobari Tanuwijaya
ICQ # 141027563
-------------------------------------------------
"Cobalah untuk tidak menjadi orang sukses saja, tetapi juga menjadi orang yang berarti"
(Albert Einstein).
On Friday, December 3, 2004, 11:28:31 AM, Oki Herijanto wrote:
> kalo memakai syntax seeprti dibawah ini kertas tetep aja roll-ing
> sampe abis, ga langsung brenti pada item barang terakhir kan..??
> gimana donk solusinya? thanks
> -OQH-
> Sobari Tanuwijaya <[EMAIL PROTECTED]> wrote:
> Ini yang saya pakai :
> procedure PrintItem( cItem: String; );
> var
> F: TextFile;
> begin
> assignfile( F, 'LPT1' );
> rewrite(F);
> writeln( F, cItem );
> CloseFile(F);
> end;
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
