Чтение из текстового файла в динамический массив

[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;
  end;
  TVec=array of TmyClass;
var
  Form1: TForm1;
  Fnew:TextFile;
  Fname:string;
implementation

{$R *.dfm}


procedure TForm1.BitBtn1Click(Sender: TObject);
var

Vec:Tvec;
i,j:integer;st:string;
begin
OpenDialog1.Execute;
AssignFile(FNew,OpenDialog1.Filename);
Reset(FNew);
i:=1;j:=1;

Readln(Fnew,st);
SetLength(vec,500);
Vec[i].markauto:=copy(st,1,26);
StringGrid1.Cells[1,1]:=Vec[i].markauto;

CloseFile(fnew);
end;

end.

Из файла записываю в динамический массив строку и вывожу в стринггриде,но пишет ошибку в файле проэкта

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.//сдесь ошибка

[phomm]

Зачем Вы используете классы, если не умеете с ними обращаться?

Чтобы использовать объект касса его надо сперва создать, а после использования удалить.

vec[i] := tmyclass.create; // создадим
Vec[i].markauto:=copy(st,1,26);
...
vec[i].free; // уничтожим

Ещё, на всякий, замечу, что дин.массивы индексируются от 0, а у Вас от 1

[Serge_Bliznykov]

phomm, АБСОЛЮТНО ПРАВ!

в качестве альтернативы предлагаю Вам выкинуть НАПРОЧЬ свой TVec вместе с TmyClass
и использовать что-то вроде:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  TS : TStringList;
   i   : integer;
begin
  if  Not  OpenDialog1.Execute then Exit;
  TS := TStringList.Create;
  try
    TS.LoadFromFile(OpenDialog1.Filename); 

    {мне непонятно, куда Вы ходите всё это загрузить,
        поэтому гружу всё тупо в 1-й столбец Грида!}  
    StringGrid1.FixedRows := 0;
    StringGrid1.FixedCols := 0;
    StringGrid1.RowCount := TS.Count;
    StringGrid1.ColCount := 1;

    for i:=0 to  TS.Count-1 do 
      StringGrid1.Cells[0,i]:=copy(TS.Strings[i],1,26);
  finally
     FreeAndNil(TS);
  end;

end;

p.s. разумеется, писал весь код я прямо тут, в браузере, поэтому возможны опечатки и неточности...

[Garmon]

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

Зачем Вы используете классы, если не умеете с ними обращаться?[/CODE]
Ещё, на всякий, замечу, что дин.массивы индексируются от 0, а у Вас от 1

Задание такое.В своей программе должин быть минимум собственный класс.В универе ни черта не обьясняют,получаеться сам разбираюсь.,лажу по форумам,читаю и тд.Спасибо

[mihali4]

Учебная программа.
Переезжает к студентам.

[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;
  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: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,26);
StringGrid1.Cells[0,i+1]:=Vec[i].markauto;
vec[i].Free;
inc(i);
end;
CloseFile(fnew);
end;

end.

Из файла прочитал в массив Марку авто,теперь нужно считать все остальное,но не могу вобще придумать алгоритм,как его реализовать.Помогите!Файл имеет вид:
Opel Omega 2.0 160 10.3 10 да 59.7 F
Opel Omega 2.016 160 9.4 15 нет 60.1 B
Opel Omega 2.5 TD 170 7.2 13 да 80.4 F
Opel Omega 2.5 V6 170 8.4 11 да 74.6 B
Opel Omega Caravan 2.0 150 9.5 18 да 70.5 B
Opel Omega Caravan 2.016V 155 8.9 25 да 14.1 B
Opel Omega Caravan 2.5 TD 160 7.9 10 нет 34.6 F
Opel Omega Caravan 2.5 V6 170 11.0 9 нет 38.9 F

В файле все ровно,это тут его сдвинуло