Cara Menentukan Index Lines pada memo-Delphi7

     Cara Menentukan Index Lines pada memo-Delphi7-Kali ini penulis ogreman bakalan bahas tentang lines pada Tmemo, banyak sekali Sobat  yang bingung

bagaimana menentukan indeks pada Tmemo  & dan mengatakan bahwa "memo itu tidak mempuyai indeks.!","kita tidak bisa  memasukkan data pada lines tertentu.!"ItsystemID

nah..,!! untuk menjawab pertanyaan tersebut maka ogreman ngepost nih artikel..!

   Sebenarnya Tmemo pada delphi memiliki lines indexs, akan tetapi kita hanya bisa menentukan 2 buah indexs saja,perhatikan code berikut:

1.)

procedure TForm1.btn1Click(Sender: TObject);    begin
           mmo1.Lines[0]:=('ini line1');
    end;

2.)

procedure TForm1.btn2Click(Sender: TObject);    begin
          mmo1.Lines[1]:=('ini line2');
    end;

3.)

 procedure TForm1.btntambahClick(Sender: TObject);
    begin
          mmo1.Lines[2]:=('ini line3');
    end;

 

{perhatikan bahwa tidak terjadi apa-apa pada  memo, dan  line3 tidak terisi,
pernyataan  mmo1.Lines[2]:=('ini line3');  tidak berjalan karena indexs melebihi 2 .
 memo hanya membaca lines dengan index(0 dan 1)}

 nah.. jika sobat perhatikan script diatas dengan seksama, maka  dapat kita simpulkan:

untuk memasukkan data pada lines selain line1 dan line2,maka lines 2  sudah harus terisi oleh data atau string kosong.

sobat bisa memanipulasinya degan cara:

1.  memberikan string kosong pada lines2 {mmo1.lines[1]:=' ';}.

     atau dengan langsung  memberikan data keline2 jika memang perlu.mmo1.lines[1]:='  teks disini'  

        

2.  untuk memasukkan datanya misalnya ke lines3 sobat cukup gunakan

     mmo1.lines.add('teks untuk lines 3')

contoh:

  procedure TForm1.btntambahClick(Sender: TObject);

   begin

        mmo1.lines[1]:=(' ');               {string kosong,agar lines beralih ketiga}
        mmo1.Lines.Add('tambah line3');

   end;

3. untuk line4   

  procedure TForm1.btntambahClick(Sender: TObject);

   begin

        mmo1.lines[1]:=(' ');{string kosong,agar lines beralih ketiga}

        mmo1.Lines.Add('tambah line3');
        mmo1.Lines.Add('tambah line4');

   end;

CTTN:'1.jika aplikasi anda memproses procedure diatas untuk berkali -kali
              maka lines nya akan terus bertambah.dan jika anda ingin kembali ke lines
              tertentu saja, misalnya lines 3 maka anda harus
              menghapus line yang sudah terisi dengan data atau string kosong.'