2. ini supaya ngambil file txt nya hanya ada pada satu folder project exe kamu,dan si file txt nya bisa dibawa2 memo1.Lines.LoadFromFile(extractfiledir(application.ExeName)+'\tes.txt'); extract2an gitu guna banget buat bikin app databes yang databesnya embedded kaya access,interbas...
gan, misalkan gini : form1 isinya spt ini : 1. button1 ( ada 1) 2. label1 (ada 1) form2 isinya spt ini : 1. button1 / tombol "OK" (ada 1) 2. button2 / tombol "cancel" (ada 1) 3. edit1 (ada 1) nah, bila button1 yg ada di form1 diklik maka akan keluar form2, apakah kodingnya sep...
gini aja, coba dibuat 1 file txt: c:\coba.txt pk notepad diisi: "susi suka sama shabu-shabu" terus disave. lantas bikin memo baru (yg lama delete aja), kode ini dicoba: memo1.lines.LoadFromFile ('c:\coba.txt'); error dulu ga.. gak ada error mod. . . sukses. . .
btw setting filter buat opendialognya kalo mau di memo,cuma file .txt aja coba nambahin aja :malus files ini juga bisa kok dibaca ama memo with openDialog1 do begin Filter := 'text|*.txt|ini|*.ini|All files|*.*'; defaultDir := GetCurrentDirectory; if not execute then Exit; memo1.lines....
coba pake exit procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName) else exit; end; btw setting filter buat opendialognya kalo mau di memo,cuma file .txt aja coba tetap error gan. . . ada beberapa dialog yg error di lazar...
Kalau pake TTimer ngak perlu pake increment lagi, tinggal setting property interval pada komponent nya saja, misal interval := 1000 (ini berarti label1.caption akan refresh setiap 1 detik dengan waktu current) oh. . . gitu ya gan. . . mantap gan . . . :2thumbup thanks atas tambahannya. . . :2thum...
Pake TTimer mungkin gan :o hoho. . . thanks gan. . . ternyata pake TTimer. procedure TForm1.Timer1Timer(Sender: TObject); var x : integer; begin Inc(x); label1.Caption := FormatDateTime('hh:mm:ss', Time + x ); end;
diumpanin mulu gan nih : http://sourceforge.net/projects/freepascal/files/Documentation/ donlot yg paling bawah (doc-chm.zip) thanks gan. . . :2thumbup :malus Kalau pake windows 7, harus ada help converter yg perlu diinstall Check out : http://www.microsoft.com/download/en/details.aspx?id=91 than...
help di delphi atau lazarus? masa ga ada help nya sih? :bingungs :bingungs lazarus gan... delphi 7 ga ada helpnya gan? :matabelo: :bingungs coba klik komponennya, misalnya opendialog, lalu tekan f1. biasanya bisa gitu. kl ga bs, coba "help > help delphi". dilihat dulu ada ga helpnya....
coba ini gan if Not directoryexists('D: amafolder') then ForceDirectories('D: amafolder'); jgn lupa tambahkan uses FileCtrl mantap gan. . . thanks... Pakai MkDir. singkatan dari Make Directory. dulu kl ga salah gini: If not DirectoryExists('c:\coba') then MkDir...
gan, kalo mau buat folder lewat kodingan gimana ? kan kalo mau buat file kaya gini. Assign(File, 'D: amafile.txt'); rewrite(File); Close(File); itukan membikin file text di drive D, nah kalo mau simpan file textnya di dalam folder, sedangkan foldernya belum ada di drive D, itu gimana ...
kok di ane bisa?:bingungs ada mslh ama hardware kali gan derita ente tiada akhir gan udah mau gan. . . ternyata di save and di build dulu programnya dan di jalankan file .exe nya, baru mau. . . :ngakak tadi gak mau karena gak ane save & build, cuma di run di lazarusnya. . . :ngakak thanks all. . ...
coba begini gan PlaySound('D:\hari_ini\text_popup.wav',hInstance,SND_ASYNC); cobain nih,moga work,untested soalnya :D var suara : string; begin suara:='D:\hari_ini\text_popup.wav'; PlaySound(PAnsiChar(suara), 0, SND_ALIAS or SND_ASYNC) ; end; tetap gak mau ga...
bisa juga pakai Windows.Beep(); thanks gan. . . mau. . . udah ada uses MMsystem nya blum? udah gan. . . ini coding selengkapnya. . . unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, MMSystem; type { TForm1 } TForm1 = class...
sama2 sih enak yg ini: shape_1.visible := True; shape_2.visible := False; di button ganti rotasi entar: shape_1.visible := not shape_1.visible; shape_2.visible := not shape_2.visible; cz sekali baca langsung tahu "oh ini pembalikan status". btw, untuk mengakali segitiga terbalik, bisa...
bisa pake TUpDown gan... https://forums.embarcadero.com/thread.jspa?threadID=38997 Thanks gan. . . tapi pas ane coba ternyata ada error kaya gini pas mau isi coding di TUpDown-nya. . . http://cdn-u.kaskus.co.id/56/zfyuqxed.jpg ane liat² di google katanya tinggal di rescan aja source directory ...
gan, kalo mau bikin kaya gini gimana ya ? http://cdn-u.kaskus.co.id/56/yralomrl.jpg apakah di kasih Tedit kemudian di dalam Tedit di kasih TupDown. . . kaya gitu kah ? Trus, kalo kita bikin Shape segitiga, dan supaya segitiganya itu di balik posisinya (rotasinya dirubah) gimana ya ? thanks. . .