langsung ya gan,
jadi gini, ane mau buat program/aplikasi untuk manipulasi/operasi string sederhana.. nah ane tuh stuck di bagian copy, substring(insert), dan deletenya gan
ini penampakan programnya :
nah kalo diliat diatas, kita bisa masukin string sebanyak apapun ke listbox 1, tapi yang diproses hanya 2 string.ketika string yang dilistbox di klik, dia akan pindah ke masing masing editbox yang di bawahnya. ketika dipencet "hasil" nanti semua yang diceklis di checkbox itu tampil di listbox 2 itu.. itu editbox yang ada 9 (3 sisipkan, 3 salin, 3 hapus) untuk kondisi masing masing perintah..
ini listing programnya :
begin
if s1.text = '' then begin
s1.text := listbox1.Items[listbox1.itemindex];
end
else
begin
s2.text := listbox1.Items[listbox1.itemindex];
end;end;
procedure TForm1.hapus2Click(Sender: TObject);
begin
procedure TForm1.BersihClick(Sender: TObject);
begin
listbox1.Items.Clear;
end;
procedure TForm1.HasilClick(Sender: TObject);
var
L1,L2,L3,Ca,b : string ; is3,cs2,cs3,ds2,ds3 : integer;
begin
if checkbox1.state =cbchecked then begin
listbox2.items.Add('Hasil Dari Penggabungan Dua String Tersebut adalah :');
listbox2.Items.Add(s1.Text + s2.text);
listbox2.Items.Add('' );
end;
if checkbox2.state =cbchecked then begin
if radiobutton1.Checked=true then begin
str(length(s1.Text):1,L1);
listbox2.items.Add('panjang dari string 1 adalah : '+L1);
listbox2.Items.Add('');
listbox2.Items.Add('' );
end
else
begin
if radiobutton2.Checked=true then begin
str(length(s2.text):1,L2);
listbox2.items.Add('panjang dari string 2 adalah : '+L2);
listbox2.Items.Add('');
listbox2.Items.Add('' );
end
else
begin
if radiobutton3.Checked=true then begin
str(length(s1.Text+s2.text):1,L3);
listbox2.items.Add('panjang dari gabungan string tersebut adalah : '+ L3);
listbox2.Items.Add('');
listbox2.Items.Add('' );
end;
if checkbox4.State=cbchecked then begin
if cs1.Text = '1' then begin
a:= cs2.text;
b := cs3.text;
cs2:= strtoint(a);
cs3:= strtoint(b);
listbox2.items.add();
end
end
end;
end;
end;
end;
end.
Tolong di bantu ya gan
ane belom bisa ngasih cendol atau apa pun, biar kebaikan agan dibalas oleh Tuhan YME
Thanks
Diubah oleh TheSkyIsDark 24-10-2013 09:00
0
1.1K
Kutip
8
Balasan
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!