Чтение и запись позиции pascalabc.net

[Konstantin1706]

Добрый день. Подскажите пожалуйста. У меня есть массив(заполнение которого осуществляется через файл), кнопка и 2 поля типа IntegerField. Я затрудняюсь с тем, что не могу по указанному пользователем номеру элемента, в поле IntegerField, изменить его значение.

[Konstantin1706]

procedure chtenie_pos;
begin
  reset(f);
  Seek(f,ch.Value);
  Write(f,ch.Value);
end;

Выводит ошибку "Нет перегруженной подпрограммы с такими типами параметров". Ругается на seek.

[Serge_Bliznykov]

недостаточно данных, чтобы помочь Вам.

изменить надо где - в файле?
нужные ваши исходники. давайте сюда ваш код описания файла и чтения из него...

[Konstantin1706]

uses FormsABC;
const
     n = 10;

type
    mas=array[1..n] of real;
var
  b,b1,b2,b3,b4:button;
  l:listbox;
  m:Field;
  ch,z,ch1,z1:IntegerField;  
  a:mas;
  f:text;
  
  
procedure zap_mas;
var
  i:integer;
  x:real;
begin
  
  reset(f);
  i:=1;
  while not eof(f) do
    begin
      read(f,x);
      a[i]:=x;
      Inc(i);
    end;
    close(f);
end;

function zap_lb(a:mas):real;
begin
  Result:=0;
  l.Items.Clear();
  for var i:=1 to n do
    begin
       l.Items.Add(a[i]);
       if a[i]<Result then
          Result:=a[i];
    end;
end;

procedure min;
begin
   m.Text:='Минимальное число -> ' + FloatToStr(zap_lb(a));
end;

/////////////
procedure chtenie_pos;
begin
  reset(f);
  Seek(f,ch.Value); 
  Write(f,ch.Value);
end;
///////////

procedure exit;
begin
  MainForm.Close;
end;
  
procedure main;
begin
  //MainForm.SetSize(282,260);
  b1:=new Button('Запольнить массив');
  b2:=new Button('Загрузить');
  l:=new ListBox();
  m:=new Field('Min', 154);
  assign(f,'b.dat');
  b1.Click+=zap_mas;
  b2.Click+=min;
  LineBreak;
  b3:=new Button('Запись позиции');
  z:=new IntegerField('№ элемента', 30);
  z1:=new IntegerField('Значение', 30);
  LineBreak;
  b4:=new Button('Чтение позиции');
  b4.Click+=chtenie_pos;
  ch:=new IntegerField('',30);
  EmptySpace(33);
  ch1:=new IntegerField('',30);

  b:=new Button('Выход');
  b.Click+=Exit;
  
end;
BEGIN
  main;
END.

Дан типизированный файл, содержащий 10 дробных значений. Мне необходимо вывести значение по указанной позиции. И указывая позицию изменить значение и перезаписать в файл.

[Konstantin1706]

10.1 
-2.11 
3.12
-2.1 
2.3 
1.1
3.2 
-2.1 
-0.2
4.02

содержимое файла b.dat

[Serge_Bliznykov]

извините, но я Вас огорчу - у Вас не получается потому что Вы изначально неверно сделали.

Дан типизированный файл,

у Вас же:

var
...
  f:text;

Это описание файловой переменной текстового файла!

у вас должно быть что-то вроде:

var
   f : double; {или f: real; если вам так больше нравится}

разумеется, читать значение из текстового файла b.dat (который у Вас имеется в данный момент) у вас не получится!

и именно по этому не работает процедура Seek - она работает исключительно для типизированных файлов.

[Konstantin1706]

поменял на тип Real. После чего выводит ошибку "Ошибка времени выполнения: Чтение после конца потока невозможно." Ругается на read(f,x).

begin
...  
while not eof(f) do
    begin
      read(f,x);
      a[i]:=x;
      Inc(i);
    end;
    close(f);
end;

[Konstantin1706]

я исправил. Serge_Bliznykov, спасибо +1. Запускается вроде без ошибок, но при выводе массива в ListBox не сходится с файлом b.dat (Выводится на подобие 9.99236026632778Е-92). А каким образом мне вывести в IntegerField значение искомого элемента?

[Konstantin1706]

и все же после вывода массива в ListBox ругается на read(f,x).