Таблица строк

@Droden · Регистрация: 06.02.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста дорешать задачу.

Создайте приложение, (используя таблицу строк) в котором осуществляется перевод мер длины:

Cтолбец - отношение к метру готов, ячейкe StringGrid1.Cells[2,1] кнопку Счет прописал.
Проблема:
1. Не могу провести такой же трюк с другими ячейками (StringGrid1.Cells[2,2] StringGrid1.Cells[2,3] StringGrid1.Cells[2,4])
2. Кнопка УДАЛИТЬ - должна очищать Edit1 и весь столбец заданная длина, Я только справился с очисткой Edit1.
3. Кнопка Добавить - должна наводить курсор в ячейки столбца заданная длина (StringGrid1.Cells[2,1].....[2,4])

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:= 'Мера длины';
StringGrid1.Cells[1,0]:= 'Отношение к метру';
StringGrid1.Cells[2,0]:= 'Заданная длина';
StringGrid1.Cells[0,1]:= 'Километры';
StringGrid1.Cells[0,2]:= 'дециметр';
StringGrid1.Cells[0,3]:= 'сантиметр';
StringGrid1.Cells[0,4]:= 'миллиметр';
 StringGrid1.Cells[1,1]:= '1 км - 1000 м';
 StringGrid1.Cells[1,2]:= '1 м - 10 дц';
 StringGrid1.Cells[1,3]:= '1 м - 100 см';
 StringGrid1.Cells[1,4]:= '1 м - 1000 мм';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:= StrToFloat(StringGrid1.Cells[2,1]);
b:= 1000;
Edit1.Text:= FloatToStr(a*b) + ' м';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
     Form1.Close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1.Clear;
 
end;
 
end.

@we2seek · 28.03.2010, 05:02

Не совсем понятна задача.

@Droden · 28.03.2010, 05:06 **[ТС]**

скачай приложение, будет понятней, она отчасти работает

Полный код

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 a, b: real;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:= 'Мера длины';
StringGrid1.Cells[1,0]:= 'Отношение к метру';
StringGrid1.Cells[2,0]:= 'Заданная длина';
StringGrid1.Cells[0,1]:= 'Километры';
StringGrid1.Cells[0,2]:= 'дециметр';
StringGrid1.Cells[0,3]:= 'сантиметр';
StringGrid1.Cells[0,4]:= 'миллиметр';
 StringGrid1.Cells[1,1]:= '1 км - 1000 м';
 StringGrid1.Cells[1,2]:= '1 м - 10 дц';
 StringGrid1.Cells[1,3]:= '1 м - 100 см';
 StringGrid1.Cells[1,4]:= '1 м - 1000 мм';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:= StrToFloat(StringGrid1.Cells[2,1]);
b:= 1000;
Edit1.Text:= FloatToStr(a*b) + ' м';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
     Form1.Close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   Edit1.Clear;
 
end;
 
end.

@Droden · 28.03.2010, 08:07 **[ТС]**

Я твою книгу уже скачал!!!!!

@we2seek 84 / 84 / 42 Регистрация: 25.01.2010 Сообщений: 386
	28.03.2010, 05:02	2
	Не совсем понятна задача. 0

@Droden 0 / 0 / 0 Регистрация: 06.02.2010 Сообщений: 35
	28.03.2010, 08:07 [ТС]	4
	Я твою книгу уже скачал!!!!! 0