Ich habe mal rasch diese Prozedur rausgehauen:
Delphi-Quellcode:
procedure TForm3.Test;
var FS:TFileStream;
Datname:string;
Dateigröße:Cardinal;
//-------------------------------------------------------------------------------------
function LeseDateiInStream:Boolean;
begin
FS := TFileStream.Create(Datname,fmOpenRead or fmShareDenyWrite);
Dateigröße := FS.Size;
Result := (Dateigröße > 0);
end;
//-------------------------------------------------------------------------------------
begin
Datname := 'C:\Temp\Test.txt';
If not LeseDateiInStream
then exit;
end;
... aber was passiert? Die Variablen werden in der Unterprozedur ausgewertet. Heute ist wohl nicht mein Frage-Tag. Ich hatte gestern eine Prozedur, wo es nicht klappte, wenn ich wieder auf die stoße, dann melde ich mich wieder.