Типизированный файл\ считывание данных.

[PierL]

Здравствуйте, ребята! Помогите разобраться в "типизированном файле". Написал программулинку. Ее работа заключается в записи числового массива из StringGrid в тип.файл и считывание его в Мемо. Вроде записывает, но считать проблема!
Хочу понять и разобраться, объясните пожалуйста!

-----
P.S. Был давеча на Киберфоруме, но сейчас не работает он! Может кто в курсе?

[northener]

memo1.Lines.Add(FloatTostr(MyArr[i]));//тут не понимаю как.

Я тоже не понимаю что ты тут пытаешься сделать.

[PierL]

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

Я тоже не понимаю что ты тут пытаешься сделать.

Я пытаюсь записать в Мемо то что у меня в файле. Т.е. я хочу (аналогичные данные) видеть всю таблицу в Мемо.

Не ради прихоти, а чтобы понять как данные считываются из файла.

procedure TForm1.Button3Click(Sender: TObject);
var
F: file of TZap;
st: string[80];
i:integer;
begin
  AssignFile(F, 'Moy_File.dat');
  Reset(F);
  i:=0;
  Memo1.Clear;
  for i:=0 to 9 do begin
    while not Eof(F) do //Проверка на конец файла
      begin
        Read(F,MyArr[i]);
        Memo1.Lines.Add(FloatToStr(MyArr[i].Res[i]));//тут не понимаю как.
     end;
end;
  CloseFile(F);
end;

при таком раскладе ерунда какая то вылетает.

[Аватар]

for i:=0 to 9 do begin
    while not Eof(F) do //Проверка на конец файла

А я это не понимаю. 10 раз в цикле по всему файлу? При чем не правильно

[northener]

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

Я пытаюсь записать в Мемо то что у меня в файле. Т.е. я хочу (аналогичные данные) видеть всю таблицу в Мемо.

Не ради прихоти, а чтобы понять как данные считываются из файла.

В архиве который прикреплен к топике считывание данных было сделано почти правильно. Неправильной была работа с рекордами при выводе в мемо.

[PierL]

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

В архиве который прикреплен к топике считывание данных было сделано почти правильно. Неправильной была работа с рекордами при выводе в мемо.

Вот, получилось то, что хотел. Хочу теперь понять, как прошлый файл загружать, т.е. таблицу не заполнять, массив не заполнять, а сразу файл с прошлого раза в Мемо выводить.

Никто не знает, что с киберфорумом?

[northener]

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

Вот, получилось то, что хотел.

Бред получился.

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

Хочу теперь понять, как прошлый файл загружать, т.е. таблицу не заполнять, массив не заполнять, а сразу файл с прошлого раза в Мемо выводить.

AssignFile(F, 'Moy_File.dat');
Reset(F);
ir:=0;
Memo1.Clear;
while not Eof(F) do
  begin
    SetLength(MyArr,ir+1);
    Read(F,MyArr[ir]);
    Memo1.Lines.Add(FloatToStr(MyArr[ir].ZnPer[1])+#9+ и т.д.
    Inc(ir);
  end;
CloseFile(F);

[PierL]

northener, спасибо!

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

Бред получился.

Почему? Выводит же все данные в мемо!

[northener]

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

Почему? Выводит же все данные в мемо!

Тебе показалось. Не мог тот код с циклом for ir:= работать правильно.

[PierL]

Не мог тот код с циклом for ir:= работать правильно.

Понятно. Dump kopf.
Скажите мне, вот создался файл Moy_File.dat, его могу потом в другой программе расшифровать, или это только индивидуально, для конкретного приложения?