hallo,
vor zwei Tagen hatte ich schon die gleiche Frage
hier, allerdings jetzt ein bisschen anders. Ich habe meine
Unit jetzt soweit ueberarbeitet, dass sie ohne probleme compiliert wird.
Wenn ich jetzt allerdings meinen eigenen Typ benutzen will bekomm ich trotzdem diesen Fehler angezeigt! Wieso?
Beispiel:
in der procedure oeffnen
db. --> ERROR
danke fuer eure Hilfe
Delphi-Quellcode:
unit Unit2;
interface
uses SysUtils, Dialogs;
type
Tnummernset =
Set of 0..9;
Tzeit =
record
hour : Integer;
min : Integer;
sec : Integer;
mill : Integer
end;
Tsubtitel =
Array[1..4]
of string[150];
Tdatatyp =
record
nummer : Integer;
start : Tzeit;
ende : Tzeit;
sub : Tsubtitel;
end;
Tdb =
Array[1..1000]
of record
high : integer;
data : Tdatatyp;
end;
implementation
procedure errormgr( errnum : Integer);
Var msg:
string;
begin
Case errnum
of
1: msg := '
Lesen der Datei fehlgeschlagen! Die Datei hat ein falsches Format.';
2: msg := '
';
else
msg := '
Unbekannter Fehler aufgetreten';
end;
Showmessage('
Fehler['+ IntToStr(errnum) + '
] :' + msg);
end;
procedure oeffnen(filename :
string;
var db : Tdb);
Var
f : textfile;
zeile :
string[150];
//i,j : integer;
nummern: Tnummernset;
BEGIN
//-----reseten------------------- '
//i := 0;
//j := 0;
Assignfile(f,filename);
Reset(f);
while not eof(f)
do
begin
//-------read file until some data occurs---
Repeat
readln(f,zeile);
Until zeile <> '
';
//-------check data for corret typ
if StrToInt(zeile[1])
in nummern
then
begin
TRY
readln(f,zeile);
if StrToInt(zeile[1])
in nummern
then
begin
end
else errormgr(1);
//wrong typ of data
FINALLY
END;
// EOF try-finally
end
else errormgr(1);
//wrong typ of data
end;
// EOF while-loop
END;
// EOF procedure
end.