Nasıl koda çevirebilirim?

[professionalsnare]

Programım 1 button,1 editbox ve 1 memodan olusuyor.Editboxa her defasında bir sayı girecem ve bu sayıyı hafızasında tutacak.Daha sonra bu sayı 10 a ulastıgında bana bütün sayıları memoda ya da bir tabloda gösterecek.Teşekkürler ayrıca bunu başak componentlerle de yazabilir miyim yardımlarınızı bekliorm.teşekkürler...

[mnt]

public
i:integer;
xarray:array [1..10] of double;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
inc(i);
if i<=10 then xarray:=strtofloat(Edit1.Text);
Edit1.Text:='';
if i=10 then Button1.Click;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
j:integer;
begin
Memo1.Lines.Clear;
for j:=1 to 10 do
Memo1.Lines.Add(floattostr(xarray[j]));
end;

[professionalsnare]

fakat program hata veriyor tam olarak ya da kontrol ederek tekrar gösterebilir msnz lütfen...

[lazio]

verdiği hata ne?? nerde hata veriyor?? bunları yazarsan çözüme daha çabuk ulaşırsın.. bunu dene..

Kod: Tümünü seç

var
  Form1: TForm1;
  sayilar : array[1..10] of Double;
  scount : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    StrToFloat(Edit1.Text)
  except
    ShowMessage('Geçerli bir Sayı Giriniz !');
    Edit1.SetFocus;
    Abort;
  end;
  Inc(scount);
  sayilar[scount] := StrToFloat(Edit1.Text);
  Edit1.Text := '';
  Edit1.SetFocus;
  if scount = 10 then
  begin
    Memo1.Lines.Clear;
    for scount := 1 to 10 do
      Memo1.Lines.Add(FloatToStr(sayilar[scount]));
    scount := 0;
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  scount := 0;
  Edit1.Text := '';
  Memo1.Lines.Clear;
end;

[professionalsnare]

ilgilenen arkadaşlara teşekkür ediyürum program sorunsuz calisiyor...

[delphist]

Demek ki tam deniyememissiniz...Kolay Gelsin