Чтение из файла

[sabbatazh]

Да, ваще, проще...

чтение:

function LoadTargetParam : boolean;
var
   IF1 : TInifile;
   FFile: string;
   i: integer;
begin

 result := false;

 FFile:=  ExtractFilePath(AppName)+ 'Targetconfig.cfg';//узнаем путь к файлу где и приложение...

      IF1:= TIniFile.Create(FFile);
         With IF1 do begin
           _targetQty:= ReadInteger('TargetQty','TargetQtySize', _targetQty);

          if (distanceToTargetCoordinateM0 = nil) then
           SetLArr(_targetQty,true);

            for i:= 0 to _targetQty - 1 do begin
             distanceToTargetCoordinateM0[i]:= ReadFloat('TargetQty',
                         'DistanceToTargetCoordinateM0[' + IntToStr(i) + ']',
                         distanceToTargetCoordinateM0[i]);
             targetVelocity[i]:=  ReadFloat('TargetQty','TargetVelocity['
                         + IntToStr(i) + ']',targetVelocity[i]);
              xTargetCoordinateM2[i]:= ReadFloat('TargetQty','xTargetCoordinateM2['
                         + IntToStr(i) + ']',xTargetCoordinateM2[i]);
              yTargetCoordinateM2[i]:= ReadFloat('TargetQty','yTargetCoordinateM2['
                         + IntToStr(i) + ']',yTargetCoordinateM2[i]);
              zTargetCoordinateM2[i]:= ReadFloat('TargetQty','zTargetCoordinateM2['
                         + IntToStr(i) + ']',zTargetCoordinateM2[i]);
              xTargetCoordinateM1[i]:= ReadFloat('TargetQty','xTargetCoordinateM1['
                         + IntToStr(i) + ']',xTargetCoordinateM1[i]);
              yTargetCoordinateM1[i]:= ReadFloat('TargetQty','yTargetCoordinateM1['
                         + IntToStr(i) + ']',yTargetCoordinateM1[i]);
              zTargetCoordinateM1[i]:= ReadFloat('TargetQty','zTargetCoordinateM1['
                         + IntToStr(i) + ']',zTargetCoordinateM1[i]);
            end;
            result := true;
         end;
      IF1.Destroy;
end;

ну и запись в файл

function SaveTargetParam : boolean;
var
   IF1 : TInifile;
   FFile: string;
   i: integer;
begin

 result := false;

 FFile:=  ExtractFilePath(AppName)+ 'Targetconfig.cfg';//узнаем путь к файлу где и приложение...

      IF1:= TIniFile.Create(FFile);
         With IF1 do begin
           WriteInteger('TargetQty','TargetQtySize', _targetQty);
            for i:= 0 to _targetQty - 1 do begin
              WriteFloat('TargetQty',
                         'DistanceToTargetCoordinateM0[' + IntToStr(i) + ']',
                         distanceToTargetCoordinateM0[i]);
              WriteFloat('TargetQty','TargetVelocity['
                         + IntToStr(i) + ']',targetVelocity[i]);
              WriteFloat('TargetQty','xTargetCoordinateM2['
                         + IntToStr(i) + ']',xTargetCoordinateM2[i]);
              WriteFloat('TargetQty','yTargetCoordinateM2['
                         + IntToStr(i) + ']',yTargetCoordinateM2[i]);
              WriteFloat('TargetQty','zTargetCoordinateM2['
                         + IntToStr(i) + ']',zTargetCoordinateM2[i]);
              WriteFloat('TargetQty','xTargetCoordinateM1['
                         + IntToStr(i) + ']',xTargetCoordinateM1[i]);
              WriteFloat('TargetQty','yTargetCoordinateM1['
                         + IntToStr(i) + ']',yTargetCoordinateM1[i]);
              WriteFloat('TargetQty','zTargetCoordinateM1['
                         + IntToStr(i) + ']',zTargetCoordinateM1[i]);
            end;
            result := true;
         end;
      IF1.Destroy;
end;

а ваще мона воспользоваться бинарным файлом (если оперируешь большим количеством данных записи-чтения файла)...

[Arkuz]

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

а ваще мона воспользоваться бинарным файлом (если оперируешь большим количеством данных записи-чтения файла)...

Подробнее можно об этом?

[sabbatazh]

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

var
  F    : File;
....
Procedure _OpenFile;
begin

  AssignFile(F, 'signal');
  FileMode := 0; 
 
  {$I-}
  Reset(f,1); 
  {$I+}

  if IOResult <> 0 then
  begin
    MessageDlg( 'signal',
      mtError, [mbOk], 0);
      exit;
  end;
end;
.....

//читаем файл

Function ReadBitF : LongInt;
var iData  : LongInt;
begin
    BlockRead(F, iData, SizeOf(iData));   

    ReadBitF:= iData;
end;

//запись аналогично....
{BlockWrite (F, iData, SizeOf(iData))}

[Arkuz]

Спасибо за помощь...

[Alter]

Наконец-то смог зайти, вот модифицированный способ чтения: