Или как-то так.
| Код |
//магическое число
const
M_C = 4;
//запись
procedure TForm2.Button1Click(Sender: TObject);
var
a: String;
I: Integer;
Len: Integer;
W: Byte;
begin
a := 'asd';
with TFileStream.Create('E:\PSBFT', fmCreate) do
try
Len := Length(a);
Write(Len, SizeOf(Integer));
for I := 1 to Len do
begin
W := Ord(a[I]);
Inc(W, M_C);
Write(W, SizeOf(Byte));
end;
finally
Free;
end;
end;
//чтение
procedure TForm2.Button2Click(Sender: TObject);
var
a: String;
I: Integer;
Len: Integer;
W: Byte;
begin
with TFileStream.Create('E:\PSBFT', fmOpenRead) do
try
Read(Len, SizeOf(Integer));
SetLength(a, Len);
for I := 1 to Len do
begin
Read(W, SizeOf(Byte));
Dec(W, M_C);
a[I] := Chr(W);
end;
finally
Free;
end;
ShowMessage(a);
end;
|
ЗЫ: написано в блокноте, Delphi не стоит. Но работать должно) |