запись и чтения динамического рекорда с 1 динамическим типом в бинарный файл delphi

[Alexandr17]

Сообщение от саша40

Так же как и всегда.
SetLength, New и т.п.
P.S. В английском языке множественное число у существительных выражается через прибавлению к существительному окончания s.

Непонял тебя. ты про что? если про зашифрованный текст то это вообщето руский текст зашифрован.

[Alexandr17]

ну может ктонить напишет мне пример записи рекорда такой структуры или подобной этой структуры.

[Slym]

на примере строки:
строка - динамический тип переменной длинны, характеризуется длинной и значением.
на основании этого имеем псевдокод

TString:record
  length:integer;
  data:array[0..0] of char;
end;

procedure SaveString(str);
begin
  writeInteger(length(str))
  if length(str)>0 then
  writeRaw(PChar(str),length(str));
end;

function ReadString:str;
var l:integer;
begin
  l:=readInteger;
  SetLength(str,l);
  readRaw(PChar(str),l);
end;

массив характеризуется длинной

procedure SaveStringArray(strs:Array of String);
var i:integer;
begin
   writeInteger(length(strs));
   for i:=low(strs) to high(strs) do
     SaveString(strs[i]);
end;

procedure ReadStringArray:Array of String;
var l,i:integer;
begin
   l:=readInteger;
  SelLength(result,l)
   for i:=low(result) to high(result) do
     strs[i]:=ReadString;
end;

[Serge_Bliznykov]

Slym, пост отличный!

маленькая, но противная опечатка...

  SelLength(result,l)
   for i:=low(result) to high(result) do
     strs[i]:=ReadString;

ой.. Вы выделяте память под массив с именем Result, а читать пытаетесь в массив strs. Access violation будет...