OK
Nimm einfach einen Shortstring.
oder sowas
Delphi-Quellcode:
{$A1}
MyRec = Record
KeineAhungwashiersteht : Array [1..10] of Byte;
Name : String[12];
KeineAhungwashiersteht2 : Array [1..112] of Byte;
end;
Var
I : Integer;
F : File;
R : myRec;
begin
assignfile(F,'Daten.dat');
reset(F,1);
try
while not(eof(f)) do
begin
Blockread(F,R,Sizeof(R),gelesen);
if gelesen = Sizeof(R) then
begin
R.Name[0]:= #12; // Falls kein Längenbyte oder nach einer Endmarke suchen whatever!
Memo1.Lines.Add(R.Name);
end;
end;
finally
Closefile;
end;
end;
So einfach...
Mavarik