@ wonguedantenan >>> numpang nimbrung ya gan,, meski tau tempat ne terlalu tinggi buat ane :hammer: coba cek datanya gan, beneran dibaca gak ?? memo1.lines.clear; while not Eof(F) and not found do begin read(F,test); //bikin string buat ngetes memo1.lines.add(test); if DataRead.Subject...
yang ini berhasil keluar bro ??? AssignFile(F,'datanote.dat'); {$I-} Reset(F); {$I+} if ioresult<>0 then Rewrite(F); ListBoxView.Items.Clear; while not Eof(F) do begin read(F,DataRead); ListBoxView.Items.Add(DataRead.Subject); //ViewMemo.Lines.Add(DataRead.Content); << dic...
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: ShiftState); begin if key = vk_escape then Button1Click(Sender); end; ^ ^ pengaruh kalo sedang focus. misal code diatas pada saat fokus di edit1, kalo yang focus di edit2 ya gak ngefek. arahin aja di events edit2 yang OnKeyUp d...
procedure TForm1.Edit2Change(Sender: TObject); begin if trim(edit1.Text) '' then edit2.Text := '' else if Trim(Edit2.Text) <> '' then begin if strtofloat(edit2.Text) > strtofloat(edit1.Text) then edit2.Text := edit1.Text; end; end; asumsi saya inputannya ...
@wonguedantenan : ijin share program cupu ya, buat refreshing yang lagi surem matanya ngoding mulu, skalian buat belajar yang baru aja kenal ama delphi :malu: sue malu gw :malu: cupu banget nih program :bingung: yang master jangen buka deh :( origin : http://www.kaskus.co.id/showthread.php?t=330...
iya kek2 gitu :o inspirasi dari kebanyakan ngelamun liatin wallpaper follow :malu: eh masternya make, jangan diketawain y :malu: pingin tambahin kalo de deketin mouse lari ke arah berlawanan. jadi gak bakal bisa di klik :D ada masukan buat AInya gak ?? :matabelo:
tuh kan, delphi c# juga. . . gw juga c#, tapi condong ke asapnet nya :bingungs dari sekian banyaknya bahasa pemrograman, kenapa c# yang rata2 buat gandengan, padahal mirip jugak enggak :hammers
itu sistemasinya : waktu buton ditekan dan ternyata hasilnya text 'tiga' langsung diubah menjadi 'satu' caranya bikin variable integer aja buat ngikutin item index-nya, kan kalo item index gak bisa lebih dari jumlah itemnya, semntara yang dibutuhkan adalah saat count item ter...
lho bukan itu maksudnya :nohope: beneran semua delphier yang lompat ke C# pasti ngikutin jejak Om Anders?? :p
MSMQ yak ?? ilmu ane belon sampe situ gan :( salut dah ente :thumbup: yang ane tau sih error 13 kan invalid data yak ?? formatnya dah bener kah ?? :confused:
gpp bro, ane dengerin kok curhatannye :fm: :hammer: baydewai, dulu ane pernah nemu di site mana gitu penjelasan error delphi, yang masih gw simpen mpe sekarang, sudah saatnya ane meneruskan wasiat ini, ihuk uhuk :hammer: lebay :p I/O Error 1: // IO Error 1L // ERROR_INVALID_FUNCTION // MessageT...
ada yang tau cara stop printer biar habis nge-print bisa langsung berenti ?? ato berenti-in printer sesuai jarak yang di inginkan ?? :confused: jadi gak nge-roll terus mpe kertas keluar semua :bingungs
kalo pake quick repot (baca : cepet susah :nohope: ) ga bisa yak ?? :confused: thx bro wonguedantenan, source nya gw simpen dulu, belon waktu nya ngoding, masih diatas kertas nih :malu:
bro bisa minta sample code buat aksi pemilihan printer ama printing nya :malu: soal nya gw rencana mau prit direct ke 2 printer saat tombol print di eksekusi :malu:
itu kira2 knp ya mastah? mohon kiranya dijawab thx :iloveindonesia coba file exe hasil compile sebelum nya yang ada di se-folder ama .dpr nya dihapus dulu, trus compile lagi :o
itu makanya jangan dibagi sama nol ("0") gan :o misal c= a / b coba listing nya diganti : readln(a); readln(b); if b >= 0 then c = a / b else writeln('pembagi bernilai nol');