[ASK] problem operasi string di delphi?

Beranda
Komunitas
Tech
Programmer Forum
[ASK] problem operasi string di delphi?

TheSkyIsDark

24-10-2013 03:12

[ASK] problem operasi string di delphi?

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 :
[ASK] problem operasi string di delphi?

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 :

Spoiler for Listing Program:

unit ManipulasiString;

Code:



interface



uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, CheckLst, Buttons, ExtCtrls;



type

 TForm1 = class(TForm)

 Judul: TLabel;

 GroupBox1: TGroupBox;

 OK: TBitBtn;

 input: TEdit;

 ListBox1: TListBox;

 GroupBox2: TGroupBox;

 Bersih: TBitBtn;

 hapus2: TBitBtn;

 Panel1: TPanel;

 GroupBox3: TGroupBox;

 Panel5: TPanel;

 CS1: TEdit;

 CS2: TEdit;

 CS3: TEdit;

 Panel6: TPanel;

 DS1: TEdit;

 DS2: TEdit;

 DS3: TEdit;

 Panel4: TPanel;

 Panel3: TPanel;

 Panel2: TPanel;

 CheckBox1: TCheckBox;

 CheckBox2: TCheckBox;

 CheckBox3: TCheckBox;

 CheckBox4: TCheckBox;

 CheckBox5: TCheckBox;

 S2: TLabeledEdit;

 S1: TLabeledEdit;

 IS1: TEdit;

 IS2: TEdit;

 IS3: TEdit;

 Hasil: TButton;

 ListBox2: TListBox;

 RadioButton1: TRadioButton;

 RadioButton2: TRadioButton;

 RadioButton3: TRadioButton;

 procedure FormCreate(Sender: TObject);

 procedure OKClick(Sender: TObject);

 procedure ListBox1Click(Sender: TObject);

 procedure hapus2Click(Sender: TObject);

 procedure BersihClick(Sender: TObject);

 procedure HasilClick(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;



var

 Form1: TForm1; a,b,c : string;



implementation



{$R *.dfm}





procedure TForm1.FormCreate(Sender: TObject);

begin

listbox1.Items.Add(' PILIH STRING' );

listbox1.Items.Add('------------------------------------------------------------------' );

listbox1.Items.Add(' ' );

end;



procedure TForm1.OKClick(Sender: TObject);

begin

listbox1.Items.Add( input.Text) ;

input.Text := '';

input.SetFocus;

end;





procedure TForm1.ListBox1Click(Sender: TObject);



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



listbox1.DeleteSelected;

s1.text := '' ;

s2.text:= '';



end;



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.