type TForm1 = class(TForm) Memo1: TMemo; Button2: TButton; EdLinieNo: TEdit; edtext: TEdit; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject); var count : integer; begin for count := memo1.Lines.Count to (strToIntDef(EdLinieNo.Text,0) - 1) do memo1.Lines.Insert(count, '');
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.