Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
12. Sep 2010
Vielen Dank mKinzler und himitsu
das Problem hat sich gelöst.
Erstens wird die Version und der Highindex in der Datei sehr wohl gespeichert, aber als hex 03 und hex 05. Mein Hexeditor hats mir verraten.
Zweitens, die in der WriteFile für den Array index stehende Variable 'num' wird in der For Schleife als High Index benutzt.
Die Funktion 'length' gibt 3 Indexe aus. Da aber das Array bei...
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
11. Sep 2010
Ups, was sehen meine Äugelein?
Der Fehler ist schon in der Write Routine. Da werden die Nummer der Datei (latestFileVersion) und die Recordnummern(Number of Records->num) nicht gespeichert oder gleich mit dem Array Inhalt überschrieben. Jedenfalls felhen in der Datei die beiden Zahlen 3 für Version und 3 bzw. 2 für die Indexe:
Const
LatestFileVersion = 3;
//......
.......
procedure...
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
11. Sep 2010
mKinzler, ich habe hier eine Routine mit 'Writeln und Readln', die auch funktioniert. Aber es läßt mir keine Ruhe, wenn ich eine Routine finde, ausprobiere, Fehler erhalte und ich das Dingens nicht verstanden habe. Ich habe erst Ruhe, wenn die Routine ihren Zweck erfüllt.
Außerdem ist die Datei viel schlanker als wenn ich die Daten in eine 'TextFile' mit writeln schreibe.
Die Routinen sind...
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
11. Sep 2010
Hat er wohl nicht:
type
TBilanz = packed record
Schuldsum :string; //<-gesamte Schuldsumme
Rate :string; //<-Rate
RFaellig :byte; //<-monatlich oder vierteljährlich
Abbuchungstag:string; //<-Abbuchungstag
end;
type
Forum: Object-Pascal / Delphi-Language
Delphi
by Codix32,
11. Sep 2010
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:
procedure ReadFile(filename:string);
var fil: file;
...