Ok, wer mal lachen mag schaue sich meine ersten Geh-Versuche an worauf irgendwie alles spätere Aufbaut:
Delphi-Quellcode:
Function CheckDB (const sName: String; const wCRC: Word) : Boolean;
type
MyRec = packed record
Name: String;
CRC: Word;
end;
var
MyDB: MyRec;
MyDBFile: File OF MyRec;
begin
Result := False;
AssignFile(MyDBFile, '.\test.db');
Reset(MyDBFile);
try
while not EOF(MyDBFile) do
begin
Read(MyDBFile, MyDB);
with MyDB do
begin
if ((LowerCase(Name) = LowerCase(sName)) and (CRC = wCRC)) then
begin
Result := True;
Exit;
end;
end;
end;
finally
CloseFile(MyRead);
end;
end;
Nicht vom Stuhl fallen vor lachen
