StringGrid.cells[1,i] делить на число(Delphi7)

[kurz]

нужно StringGrid.cells[4,i] занести значение StringGrid.cells[1,i] деленное на число.как перевести.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, Menus;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Load1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    BitBtn1: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Load1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure SaveGrid(Grid:TStringGrid;FileName:string);
var
f: textfile;
x, y: integer;
begin
assignfile(f,Filename);
rewrite(f);
writeln(f, grid.colcount); // çàïèñü êîëè÷åñòâà êîëîíîê
writeln(f, grid.rowcount); // çàïèñü êîëè÷åñòâà ñòðîê
for X := 0 to grid.colcount - 1 do
for y := 0 to grid.rowcount - 1 do
writeln(F, grid.cells[x, y]);  // çàïèñü äàííûõ
closefile(f);
end;

procedure LoadGrid(Grid:TStringGrid;FileName:string);
var
f: textfile;
temp, x, y: integer;
tempstr: string;
begin
assignfile(f, Filename);
reset(f);
readln(f, temp); // ñ÷èòûâàíèå êîëè÷åñòâà êîëîíîê
grid.colcount := temp;
readln(f, temp); // ñ÷èòûâàíèå êîëè÷åñòâà ñòðîê
grid.rowcount := temp;
for X := 0 to grid.colcount - 1 do
for y := 0 to grid.rowcount - 1 do
begin
readln(F, tempstr);
grid.cells[x, y] := tempstr; // ñ÷èòûâàíèå äàííûõ
end;
closefile(f);
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
OpenDialog1.FileName := '*.*';
  if  OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;

savegrid(stringgrid1,OpenDialog1.FileName);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 OpenDialog1.FileName := '*.*';
  if  OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;

loadgrid(stringgrid1,OpenDialog1.FileName);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0] := 'Íàçâàíèå';
StringGrid1.Cells[1,0] := 'êóïëÿ(RUB)';
StringGrid1.Cells[2,0] := 'ïðîäàæà(RUB)';
StringGrid1.Cells[3,0] := 'êîëè÷åñòâî';
StringGrid1.Cells[4,0] := 'êóïëÿ(USD)';
StringGrid1.Cells[5,0] := 'ïðîäàæà(USD)';
StringGrid1.Cells[6,0] := 'êóïëÿ(EUR)';
StringGrid1.Cells[7,0] := 'ïðîäàæà(EUR)';
end;

procedure TForm1.About1Click(Sender: TObject);
begin
showmessage('âûïîëíèë ñòóäåíò 210 ãðóïïû Øåíäðÿ Àðòóð');
end;

procedure TForm1.N2Click(Sender: TObject);
begin
OpenDialog1.FileName := '*.*';
  if  OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;
savegrid(stringgrid1,OpenDialog1.FileName);
end;

procedure TForm1.Load1Click(Sender: TObject);
begin
OpenDialog1.FileName := '*.*';
  if  OpenDialog1.Execute then
    Edit1.Text := OpenDialog1.FileName;

loadgrid(stringgrid1,OpenDialog1.FileName);
end;


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

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  v:array[1..10]of real;
  i:integer;
begin
for i:=1 to stringgrid1.rowcount do
  v:=floattostrf(stringgrid1.cells[1,i]/31);
end;

end.

[SNUPY]

StringGrid.cells[4,i] := StringGrid.cells[1,i]/m;

[kurz]

тут вся проблема в типах.стринг не получится делить.

[DIgorevich]

А кто тебе мешает использовать pos...delete избавляться от лишних символов в строке и преобразовывать ее в Integer (Inttostr(x))?

[kurz]

может получится дробное число.Integer не подходит.да и с переводом у меня проблемы.

[DIgorevich]

значит используй Real, а переводить как strtofloat(X)
В предыдущем посте я перепутал надо: strtoint(x)

[kurz]

написал так

stringgrid1[4,i]:=floattostr(strtofloat(stringgrid1.cells[1,i])/3);

получил
[Error] Unit1.pas(152): Class does not have a default property

[DIgorevich]

Сообщение от kurz

написал так

PHP код:

stringgrid1[4,i]:=floattostr(strtofloat(stringgrid1.cells[1,i])/3); 


получил
[Error] Unit1.pas(152): Class does not have a default property

А кто от буковков избавляться будет перед делением? Да и "stringgrid1[4,i]" - не указатель на ячейку.

[kurz]

там у меня букв нету. написал

 stringgrid1.Cells[4,i]:=floattostr(strtofloat(stringgrid1.cells[1,i])/31);

запускаю жму расчет вылетает со ошибкой "is not a valid floating point value"

[DIgorevich]

как это букв нету? а ты сделай так:

showmessage(stringgrid1.cells[1,i])

и посмотри строку. Да и нам можешь показать, а то у тебя в первом топике кракозябры вместо русских букв.