Работа с типизированными файлами

[NewLamer&Programer]

Макс Башкинов, если уж вам так надо затолкать содержимое файла в Memo то юзайте Memo1.Lines.LoadFromFile();

[Макс Башкинов]

Сообщение от NewLamer&Programer

Макс Башкинов, если уж вам так надо затолкать содержимое файла в Memo то юзайте Memo1.Lines.LoadFromFile();

так это типизированный файл

[Serge_Bliznykov]

Сообщение от Макс Башкинов

так это типизированный файл

Макс Башкинов, я, конечно, приношу извинения, что вмешиваюсь в вашу такую содержательную беседу, но мне любопытно, почему мой пост с примером Вы вообще проигнорировали?

[phomm]

Очевидно , сложности сопоставить Write(f, OneLine) и мемо.
Автор, Вам стоит написать функцию перевода из Вашего типа, который Вы читаете из файла - в строку.
Если опираться на код, что Вы приводили, то примерно вот так, учитывая, что в твеб 3 integer поля - a,b,c

var s:Tweb;
begin
assignfile(f,'f');
reset(f);
while not eof(f) do
begin
readln(f,s);
memo1.Lines.Add(TwebToStr(s));
end;
end;
function TwebToStr(tw: TWeb): string;
begin
  Result := Format('a: %d, b: %d, c: %d', [tw.a, tw.b, tw.c]);
end;

Дичайше необходимо лететь лётом и учить основы паскаля.

Ах да, товарищ NewLamer, Вы опять же последите, пожалуйста за темой в принципе и не советуйте то, в чём не уверены полностью. Не стоит делать дела, видя только отрывок смысла/верхушку айсберга.

[Serge_Bliznykov]

phomm, в точку! Согласен!

вы опечатались в своём примере. ReadLn и WriteLn допустимы только для текстовых файлов, для типизированных нужно read для чтения и write для записи:

while not eof(f) do
begin
  read(f,s);
  memo1.Lines.Add(TwebToStr(s));
end;

[phomm]

Serge, пример не мой, я лишь взял его из поста ТС, добавил функцию и её вызов )) остальное даже не смотрел, подпись даже сделал.
А товарищу, кстати, уже по скайпу объяснял, как-то слабо доходит...