Заполнение StringGrid из Edit

[Инна]

Привет! Нужно чтобы при нажатии кнопки в ячейки турнирной таблицы вводились результаты из двух Editов через двоеточие. Не получается. Вот код
procedure TForm1.Button1Click(Sender: TObject);
var
sg:TStringGrid;
i:integer;
begin
for i:=1 to sg.ColCount-1 do
begin
sg.Cells[i,1]:=Edit1.text;
sg.Cells[i,1]:=':';
sg.Cells[i,1]:=Edit2.Text;
end;
begin
sg.Cells[i,2]:=Edit1.text;
sg.Cells[i,2]:=':';
sg.Cells[i,2]:=Edit2.Text;
end;
begin
sg.Cells[i,3]:=Edit1.text;
sg.Cells[i,3]:=':';
sg.Cells[i,3]:=Edit2.Text;
end;
begin
sg.Cells[i,4]:=Edit1.text;
sg.Cells[i,4]:=':';
sg.Cells[i,4]:=Edit2.Text;
end;
end;
Ребята, подскажите пожалуйста, что не так(((((

[Egych]

Зачем ты после первого столбца закрываешь цикл? Если у тебя 1 цикл, то просто убери все begin и end, кроме открывающего цикл и закрывающего его

[zetrix]

На счёт цикла - это раз
Но ещё и косяк с присваиванием!!!
Вы присваиваете сначало одно, потом второе, потом третье - в итоге остаётся только третье (Edit2.text)!

Вот готовое:

procedure TForm1.Button1Click(Sender: TObject);
var
  sg:TStringGrid;
  i:integer;
begin
for i:=1 to sg.ColCount-1 do
 begin
 sg.Cells[i,1]:=Edit1.text+':'+Edit2.Text;
 sg.Cells[i,2]:=Edit1.text+':'+Edit2.Text;
 sg.Cells[i,3]:=Edit1.text+':'+Edit2.Text;
 sg.Cells[i,4]:=Edit1.text+':'+Edit2.Text;
 end;
end;

P.S.: не люблю большой код, всё намного проще, красивее и понятнее.

[Инна]

Спасибо огромное Мне стыдно за моё невежество Я Делфи занимаюсь меньше месяца

[Инна]

Ребят, ну всё равно ошибку выдаёт...вот код....


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
StringGrid1: TStringGrid;
procedure StringGrid1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1Click(Sender: TObject);
var
sg:TStringGrid;
begin
sg.RowCount:=5;
sg.ColCount:=5;
begin
sg.Cells[0,0]:='Êîìàíäû';
sg.Cells[0,1]:='Ñïàðòàê';
sg.Cells[0,2]:='Äèíàìî';
sg.Cells[0,3]:='Ìåòàëëóðã';
sg.Cells[0,4]:='Øèííèê';
sg.Cells[1,0]:='Øèííèê';
sg.Cells[2,0]:='Ìåòàëëóðã';
sg.Cells[3,0]:='Ñïàðòàê';
sg.Cells[4,0]:='Äèíàìî';
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
sg:TStringGrid;
i:integer;
begin
for i:=1 to sg.ColCount-1 do
begin
sg.Cells[i,1]:=Edit1.Text+':'+Edit2.Text;

sg.Cells[i,2]:=Edit1.Text+':'+Edit2.Text;

sg.Cells[i,3]:=Edit1.Text+':'+Edit2.Text;

sg.Cells[i,4]:=Edit1.Text+':'+Edit2.Text;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)=0 then Button1.Enabled:=False
else Button1.Enabled:=True;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
if Length(Edit2.Text)=0 then Button1.Enabled:=False
else Button1.Enabled:=True;
end;
end.

[zetrix]

1*) Смотрите свой код!!!

procedure TForm1.StringGrid1Click(Sender: TObject);
var
sg:TStringGrid;
begin
sg.RowCount:=5;
sg.ColCount:=5;
begin
sg.Cells[0,0]:='Êîìàíäû';
sg.Cells[0,1]:='Ñïàðòàê';
sg.Cells[0,2]:='Äèíàìî';
sg.Cells[0,3]:='Ìåòàëëóðã';
sg.Cells[0,4]:='Øèííèê';
sg.Cells[1,0]:='Øèííèê';
sg.Cells[2,0]:='Ìåòàëëóðã';
sg.Cells[3,0]:='Ñïàðòàê';
sg.Cells[4,0]:='Äèíàìî';
end;
end;

выделенные строчки - удалить, они лишние
2*) но вот главное:

procedure TForm1.Button1Click(Sender: TObject);
var
sg:TStringGrid;
i:integer;
begin
for i:=1 to sg.ColCount-1 do
begin
sg.Cells[i,1]:=Edit1.Text+':'+Edit2.Text;
sg.Cells[i,2]:=Edit1.Text+':'+Edit2.Text;
sg.Cells[i,3]:=Edit1.Text+':'+Edit2.Text;
sg.Cells[i,4]:=Edit1.Text+':'+Edit2.Text;
end;
end;

куда один end пропал??? Добавьте то, что написано красным!

Почитайте литературу (см. подпись), т.к. Ваш код (см. 1*) показывает полное непонимание.

[Инна]

Не надо на меня злиться....Я только пытаюсь что-то сделать...
Спасибо Вам конечно огромное, но программа ВСЁ РАВНО не работает....Я уже не знаю почему...И дело уже не в недостающем end'е....Я всё сделала так, как вы написали. Тормозит ровно на строке sg.Cells[i,1]:=.....

[Killer_djon]

procedure TForm1.Button1Click(Sender: TObject);
var
//sg:TStringGrid;
i, j:integer;
begin
for i:=1 to stringgrid1.ColCount-1 do
for j:=1 to 4 do
begin
stringgrid1.Cells[i,j]:=Edit1.Text+':'+Edit2.Text;
stringgrid1.Cells[i,j]:=Edit1.Text+':'+Edit2.Text;
stringgrid1.Cells[i,j]:=Edit1.Text+':'+Edit2.Text;
stringgrid1.Cells[i,j]:=Edit1.Text+':'+Edit2.Text;
end;
end;

В данном случае выдает ошибку объевление класса TStringGrid, а вот почему оно выдает эту ошибку я не розбирался, ну вообщем можешь кидать данный обработчик события OnClick своей кнопки и будет работать

[Shuraken]

Интересная фишка получается. Ни в одном из предыдущих примеров, где объявлялась переменная sg: TStringGrid не было ее создания. Как же с ней тогда можно работать? Компонент StringGrid1 есть на форме, она сама его создаст, об этом заботиться не надо, а об остальном надо.

[zetrix]

Хм... точно. А Вам не самом деле компонент StringGrid надо создать динамически? Может проще на форму положить зараннее?