Hallöchen
ich kriegs nicht hin. Möchte ein dynamisches Record Array, das in eine Datei gespeichert ist auslesen und kriege ständig Fehlermeldungen.
Habe die Leseroutine im Internet gefunden und komme insbesonders mit der 'Blockread Procedur' nicht klar.
Die gefundene Routine weißt wohl schon einen Fehler auf, nämlich hier:
Delphi-Quellcode:
procedure ReadFile(filename:string);
var fil: file;
i: integer;
num: word; {allows up to 65535 records}
ver: byte;
function ReadString:ShortString;
begin {ReadString}
BlockRead(fil,result,1); {Read the length of the string}
BlockRead(fil,s[1],length(s)); //<- s ist nirgends declariert
end; {ReadString}
begin {ReadFile}
...
...
Ich habe versucht , einfach in der Funktion eine Variable vom Typ Shortstring zu erstellen:
Delphi-Quellcode:
function ReadString:ShortString;
var
s:string;
begin {ReadString}
BlockRead(fil,result,1); {Read the length of the string}
BlockRead(fil,s[1],length(s)); {Read the string itself}
end; {ReadString}
Funzt nicht. Was passiert hier eigentlich? Die Blockread Procedure bekommt in der Funktion das Resultat der Funktion übergeben, mein Verstand reicht da nicht mehr hin.
Hier nochmal die ganze Leseroutine:
Delphi-Quellcode:
procedure TForm1.ReadFile(filename:string);
var fil: file;
i: integer;
num: byte; {allows up to 65535 records}
ver: byte;
function ReadString:ShortString;
var
s:string;
begin {ReadString}
BlockRead(fil,result,1); {Read the length of the string}
BlockRead(fil,s[1],length(s)); {Read the string itself}
end; {ReadString}
begin {ReadFile}
assignFile(fil,filename); reset(fil,1); {Open the file}
BlockRead(fil,ver,sizeof(ver)); {Read the file version}
BlockRead(fil,num,sizeof(num)); {Read the number of records}
SetLength(VBilArray,num);
for i:=0 to high(VBilArray) do
with VBilArray[i] do begin {Read the data}
Schuldsum:=ReadString;
Rate:=ReadString;
RFaellig:=strtoint(ReadString);
Abbuchungstag:=ReadString;
end; {with}
CloseFile(fil);
end; {ReadFile}
Kann mir jemand helfen?