Перевод строк типа string в...

[Garmon]

unit Main;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMyClass=class
   private
     markauto:string[26];
     maxspeed:word;
     razgondo100:real;
     rasxod:byte;
  end;
  TVec=array of TmyClass;
var
  Form1: TForm1;
  Fnew:TextFile;
  Fname:string;
  Vec:Tvec;
implementation

{$R *.dfm}


procedure TForm1.BitBtn1Click(Sender: TObject);
var

i:integer;st,x,y,z:string;
begin
OpenDialog1.Execute;
AssignFile(FNew,OpenDialog1.Filename);
Reset(FNew);
i:=0;
StringGrid1.Cells[0,0]:='Ìàðêà Àâòîìîáèëÿ';
StringGrid1.Cells[1,0]:='Ìàêñèìàëüíàÿ ñêîðîñòü â [êì/÷àñ]';
StringGrid1.Cells[2,0]:='Ðàçãîí äî 100 [êì/÷àñ] â [ñåê]';
StringGrid1.Cells[3,0]:='Ðàñõîä òîïëèâà íà 100[êì] â [ëèòð]';
StringGrid1.Cells[4,0]:='Ãèäðî óñèëèòåëü ðóëÿ';
StringGrid1.Cells[5,0]:='Îáúåì áàãàæíèêà [ë]';
StringGrid1.Cells[6,0]:='Òèï ïðèâîäà';
While not EOF(Fnew) do begin
StringGrid1.RowCount:=i+1;
Readln(Fnew,st);
SetLength(vec,i+1);

Vec[i]:=TMyClass.Create;
Vec[i].markauto:=copy(st,1,25);
StringGrid1.Cells[0,i+1]:=Vec[i].markauto;

x:=copy(st,26,4);
Vec[i].maxspeed:=StrToInt(x);
StringGrid1.Cells[1,i+1]:=IntToStr(Vec[i].maxspeed);

{y:=copy(st,31,5);
Vec[i].razgondo100:=StrToFloat(y);
StringGrid1.Cells[2,i+1]:=FloatToStr(Vec[i].razgondo100);}

z:=copy(st,36,3);
Vec[i].rasxod:=StrToInt(z);
StringGrid1.Cells[3,i+1]:=IntToStr(Vec[i].rasxod)};

vec[i].Free;
inc(i);
end;
CloseFile(fnew);
end;

end.

То что закоментино не работает.На этапе выполнения,выдает ошибку типо не правильно конвектирован тип.Что делать?

[chertovich]

можно описание Vec[i].razgondo100 ?

[Аватар]

Vec[i].razgondo100:=StrToFloat(y);

- в y данные, которые не могут быть преобразованы в real. Наиболее частая ошибка такого рода - программа ожидает, что в качестве десятичной точки используется запятая, а там точка. Или наоборот. См. DecimalSeparator. Пустая строка тоже ошибку даст

[chertovich]

Либо в y содержится лишние символы.