Notes

unit Delphi;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Memo2: TMemo;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
dizi:Array Of String;
i,eSayisi:byte;
begin
SetLength(dizi,8);
dizi[0]:='Veli';
dizi[7]:='Ahmet';
eSayisi:=Length(dizi)-1;
for i := 0 to eSayisi do begin
Memo1.Lines.Add(IntToStr(i+1)+'-'+dizi[i])
end;

end;
procedure TForm1.Button2Click(Sender: TObject);
var
str1:string[40];
begin
str1:=Trim(Edit1.Text);
if length(str1)=0 then begin
ShowMessage('Lütfen değer giriniz');
exit;
end;
Memo1.Lines.Add(str1);
Edit1.Text:='';
Edit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
dizi:Array of String;
satirSayisi:Byte;
i:byte;
begin
if Memo1.Lines.Count<0 then begin

ShowMessage('Memo1 de eleman yok');
exit
end;
Memo2.Lines.Assign(Memo1.Lines);
exit;
i:=0;
while i<satirSayisi do begin
SetLength(dizi,Length(dizi)+1);
dizi[Length(dizi)-1]:=memo1.Lines[i];
i:=i+1;
end;
i:=0;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Memo2.Clear;
Edit1.Clear;
end;
end.