Sabtu, 12 Desember 2015

Lines



//Lines

{
Lines adalah properties yang ada pada komponen yang meimiliki paragraf yang lebih dari 1
seperti Memo dan richedit

Lines Bertype data Tstringlist ;

Adapun contoh untuk Lines

}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.add('Isi paragraf 1') ;
memo1.lines.add('Isi paragraf 2') ;
end;

// dan yang lain
procedure TForm1.Button1Click(Sender: TObject);
var a:tstringlist;
begin
a:= tstringlist.create ;
a.loadfromfile('D:\tess.txt') ;
memo1.lines := a;
end;


Tidak ada komentar:

Posting Komentar