Считывание из файла

@Greens239 · Регистрация: 23.04.2014

Author24 — интернет-сервис помощи студентам

Имею файл с такой структурой

Delphi

type rec=record
images:array[0..99] of Tobject;
end;
var memorect:rec;

Заношу данные:

Delphi

rewrite(f);
for i:=0 to form1.componentcount-1 do
if form1.Components[i] is Tmemo then
begin
imagerec.images[j]:=form1.Components[i];
j:=j+1;
end;
write(f,imagerec);
closefile(f);

Как считать данные из такого файла?
спрашиваю, т.к

Delphi

1 2	reset(f); read(f,memorec);

не заносит данные из файла в данную запись

@Mawrat · 29.05.2014, 12:55

Переменная S : String - это указатель на текстовые данные. А S[1] - это как раз, место в памяти, на которое указывает указатель S. Т. е., S[1] - это первый элемент (символ) в текстовых данных, на которые указывает S.

Добавлено через 1 минуту
Можно ещё так написать, но это более громоздко:

Delphi

1	BlockWrite(F, Pointer(S)^, Size);

Добавлено через 5 минут
И ещё запись:

Delphi

1	BlockWrite(F, S[1], Size);

подходит и для случая, когда S : String и когда S : ShortString. Переменная типа ShortString не является указателем и устроена, как символьный массив.

DenNik · 29.05.2014, 14:23

Mawrat, то есть, в обоих случаях

Delphi

1
2
3

var
  s: string;
  s: string[10];

нужно писать s[1] в BlockWrite?

@Mawrat · 30.05.2014, 23:29

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

нужно писать s[1] в BlockWrite?

Да - для обоих случаев подходит.

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	30.05.2014, 23:29	143
	Сообщение от DenNik нужно писать s[1] в BlockWrite? Да - для обоих случаев подходит. 0