массив через StringGrid

[Arisha_O]

Задача:Дан массив(одномерный) размера N и целые числа K и L. Найти сумму элементов массива с номерами от K до L включительно.Массив организовать в StringGrid. количество элементов, к и L вводить самому.
Помогите пожалуйста!

дополните, исправьте)

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Grids;

type
 TForm1 = class(TForm)
 StringGrid1: TStringGrid;
 Button3: TButton;
 Button4: TButton;
 procedure FormCreate(Sender: TObject);
 procedure Button4Click(Sender: TObject);
 procedure Button3Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;
 a: array[1..100] of integer;
 m,n,i,j,k,l,s:integer; 
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 N:=1;
 M:=2;
 // Задание числа строк и столбцов
 StringGrid1.ColCount:= M+1;
 StringGrid1.RowCount:= N+1;
 StringGrid1.Cells[1,0]:='K'; StringGrid1.Cells[2,0]:='L';
 randomize;
 StringGrid1.Cells[1,1]:=IntToStr(random(20));
 StringGrid1.Cells[2,1]:=IntToStr(random(20));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button3Click(Sender: TObject);
var

a : array[1..100] of integer;  

summ: integer;  

i,n,k,l: integer; 

begin

for i:= 1 to n do

if Length(StringGrid1.Cells[i-1, 0]) <>0

then a[i] := StrToInt(StringGrid1.Cells[i-1,0])

else a[i] := 0;

summ := 0;

for i :=k to l do

summ := summ + a[i]; 

 end.
MessageDlg('Сумма элементов от K до L = '+ inttostr(summ), mtInformation,
 [mbOk], 0);
end;

end.

[Stilet]

Ты уже создала обработчики кнопок. Кинь еще пару эдитов и допиши

i,n,k,l: integer; 

begin
 k:=StrToInt(Edit1.text);
 l:=StrToInt(Edit2.text);
...

Получишь

к и L вводить самому.

А так на первый взгляд у тебя вроде норм. Правда я не проверял, но ты то это можешь

[Arisha_O]

ошибку на выводе сообщения выдает)

[Stilet]

А зарплату случайно не выдает? Я бы взял доллярами

[Arisha_O]

ха-ха... я вообще серьезно помощи прошу(

[Stilet]

А чем я могу тебе помочь если у тебя выдает ошибку о которой мне ничего не известно?
Представь к тебе подходит незнакомый человек и говорит что у него машину угнали и уходит.