Delphi Forum

[Zero Cool]

Kepada semua pengguna Delphi untuk mempost baik itu tips and trik mau pun saran. Serta bantuan. Untuk awalnya bisa donlot component gratisan di link ini :
::hohoho:: http://delphi.icm.edu.pl/::hohoho::

[Zero Cool]

Manipulasi gambar dapat dilakukan dengan menggunakan "CANVAS". Dan sejauh ini canvas dapat ditemukan di picturebox, image dan printer. Kalo ada yang laen kasih tau ya.

[Zero Cool]

Untuk delphi konvert dari string <> integer dilakuakn dengan :
strtoint(xxxxxx);
dan untuk integer to string denga :
inttostr(xxxxxx);
xxxxx := harus sesuai, ketika mengkonvert dari string ke integer pastikan xxxxx dalam format string. Dan ketika mengkonvert dari integer ke string pastikan xxxxxx dalam format integer;

[Zero Cool]

Ada yang tau cara pake Indy10 di Delphi 2005 ?

[ruboW]

delphi 2005? delphi 7 maksudmu?

[omi]

gw angkat lagi thread lama..
help! gw kan mo iseng2 coba buat prog dimana prog tsb, dapat membaca inputan (suatu inputan, mis berupa sejumlah angka)
tapi tu prog maunya bisa langsung memasukkan inputan tsb ke dalam sebuah array terus ditampilkan di memo 1 per satu

jadi mis inputannya "21365", terus nanti gw mo tampilan di memo-nya
nilai [1] = 2
nilai [2] = 1
nilai [3] = 3
dst

masalahnya gw ga bisa membuat agar inputan melalui "object edit text" masuk ke dalam array yg udah gw siapin
ada yg tahu gimana ngakalin / convert-nya biar dia masuk ke dalam array?

thanks a lot

[b312ul]

myVar = string(text1.text);

nilai [1] = 2
nilai [2] = 1
nilai [3] = 3
dst
ini salah!!
mulai dari angka 0
nilai [0] = 2
nilai [1] = 1
nilai [2] = 3
dst

[omi]

iya maap
lho koq pake string? itu bisa diubah ke array?
nanti menampilkannya gimana? kl for-nya si gw dah ada bayangan, tapi perintah utk menampilkannya ke memo misalnya, jadi : inttostring(nilai[i]) gitu?

[ruboW]

wew... lupa!!
kl ini C maka itu bisa jadi array.. khan dalam C.. string itu adalah kumpulan array.
kl jadi string maka untuk ambil posisi 5 misalnya lebih gampang..

pake
nilai [0] = substr(var,0, 1);
nilai [1] = substr(var,1, 1);
nilai [2] = ..
nilai [3] = ..

atau
nilai [iPos] = substr(var,iPos, 1);

atau untuk tampil ke memo km taro dulu di var

for i:=1 to 50
begin
txt=txt+"nilai ["+i+"]=";
txt=txt+inttostr(substr(var,iPos, 1));
txt=txt+#09#08"; //untuk memberi enter setelahnya
end;

memo1.text = txt;

maaf dah ngak megang delphi tp megang php

[omi]

err.. hasil coding asal-asalan, di run jalan. Tapi kl gw masukkin nilainya terus gw jalankan procedure-nya / tombol perintah-nya eh malah error

procedure TForm1.BtTampilClick(Sender: TObject);
var i : integer;
nilai : array[0..5] of integer;

begin
nilai[i] := StrToInt(EdArray.Text);
for i:= 1 to 6 do
begin

Memo1.Lines.Add(IntToStr(nilai[i]));
nilai[i]:=nilai[i]+1;
end;
end;
tolong dikoreksi mana ni yg salah?

[SimFactor]

Variabel i nya belum di initialize. Waktu jalanin baris


nilai[i] := StrToInt(EdArray.Text);


Bakal error karena belum ketahuan nilai awal i berapa. Bisa di ubah jadi gini:


i:=0;
nilai[i] := StrToInt(EdArray.Text);


Untuk code for nya juga kaku... coba di ubah jadi


for i:=0 to nilai.count do
begin
...
end;


Jadi berapapun besarnya array nilai akan bisa dihandle dan dengan index yang benar, yang diawali dengan '0'

EDIT:
Sorry, untuk statement "for" di atas, mungkin engga bisa pakai syntax "nilai.count". Penggantinya adalah "sizeof(nilai)".

EDIT2:
Sorry, salah lagi :doh: ... Kalo di Delphi, pake Length(array) untuk mengetahui jumlah elemen dalam array 1 dimensi

[opera]

ada yg pernah coba bikin report dari delphi lsg ke excel???
pake apa ya?

[b312ul]

bukan pake perog semacam kristal repot githu??

[omi]

eh nanya donk, kl perintah copy, select all di delphi apa ya?
misalnya kita buat tombol copy & select all yg gunanya utk menselect semua text yg ada di memo terus kita copy ke tempat lain
command-nya apa ya? biar gw ga usah repot2 ctrl+a terus ctrl+c

[omi]

*angkat thread lama*


mo nanya soal delphi, gimana ya caranya memformat bilangan decimal agar yg muncul hanya 2 digit atau sekian digit (kita yg tentukan) di belakang koma
mis 36,66666666667 mau gw 36,66 gitu aja. Ada yg tahu caranya?

thanks

[anna_ht]

*angkat thread lama*


mo nanya soal delphi, gimana ya caranya memformat bilangan decimal agar yg muncul hanya 2 digit atau sekian digit (kita yg tentukan) di belakang koma
mis 36,66666666667 mau gw 36,66 gitu aja. Ada yg tahu caranya?

thanks
waduh, br bljr ne, krg tau jg ya::oops::

Mo tny ni, GMN BUAT BUTTON1 itu gk bs diklik,. Jd, saat panah mouse itu gk bs nyampe ke badan BUTTON1 itu, ksimpulanny button tdk bs dkik coz, klika mau d klik button langsung pindah2 letakny,... thx

[Shaka_RDR]

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Button1.Left := Button1.Left + 100;
end;

end.


gunakan even onMouseMove
itu salah satu contohnya. ntar tinggal dibikin aja left dan top nya dirandom.

[anna_ht]

TANYA ne,....
gni kan d form ad NOTEPAD(memo mksny),. nah tar klo ad kata ato kalimat yg di block, n trs kik button1(captionny KAPITAL), maka kata ato kalimat itu bs berubah jd hiruf besar,... gmn ya????

[ruboW]

*angkat thread lama*


mo nanya soal delphi, gimana ya caranya memformat bilangan decimal agar yg muncul hanya 2 digit atau sekian digit (kita yg tentukan) di belakang koma
mis 36,66666666667 mau gw 36,66 gitu aja. Ada yg tahu caranya?

thanks
myNum = num0:6:2;

bagaimana dengan di atas.. mendekati kebenaran (ku coba di pascal sih bisa)