//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