Hallo Emil,
ich würde die FBuffin Procedure so umbauen,
dass die Datei darin geöffnet und auch geschlossen wird.
Delphi-Quellcode:
procedure FBuffin(FileName: string; {var hFile: THandle});
var
sBuffer: string;
f : TextFile;
hFile : THandle;
begin
if not FExist(FileName) then Exit;
nErrCode := FOpen(FileName, 2, 4, hFile); // Was willst Du damit bewecken?
// Nur einen ErrorCode bekommen?
if nErrCode <> 0 then exit;
nReading := 0;
Assignfile(f, FileName);
{$I -}
reset(f);
{$I +}
if IOResult = 0 then
begin
while not eof(f) do
begin
ReadLN(f, sBuffer);
FSeekTo(nReading, sBuffer);
inc(nReading);
end;
closeFile(f);
end;
fClose(hFile);
end;
So weit ich gesehen habe, wird die Variable hFile nicht
in der Routine ParsetoMidiTracker verwendet (ausser für fClose).
Grüße
Klaus