Forum: Programmieren allgemein
Delphi
by Benmik,
19. Apr 2022
Verflucht, mache ich sonst auch immer, diesmal vergessen. Wird beim nächsten Auftreten probiert!
Forum: Programmieren allgemein
Delphi
by Benmik,
19. Apr 2022
Ich habe mal rasch diese Prozedur rausgehauen: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...
Forum: Programmieren allgemein
Delphi
by Benmik,
19. Apr 2022
In früheren Versionen von Delphi klappte das aber einwandfrei.
Forum: Programmieren allgemein
Delphi
by Benmik,
19. Apr 2022
Die Idee kam mir auch, weswegen ich ein If MD5 = '' then exit; eingefügt habe. (Ich versuche gerade, mich in die OTL einzuarbeiten, weswegen der Code nichts Sinnvolles tut.)
Ich habe nun nochmal genau nachgeguckt und leider ist es tatsächlich so, dass dieses exit keine Konsequenzen hat. Deine Annahme ist also richtig, vielen Dank.
Wo wir gerade dabei sind: Ich verwende gern Unterprozeduren,...
Forum: Programmieren allgemein
Delphi
by Benmik,
19. Apr 2022
Ich habe hier folgenden Code:procedure TForm3.Button1Click(Sender: TObject);
var TaskGroup: IOmniTaskGroup;
S : TSearchRec;
MD5 : string;
OTC : IOmniTaskControl;
Gef : integer;
HashMD5: THashMD5;
begin
...
Beim Debuggen erscheinen von den 6 deklarierten Variablen nur 4, "S" und "MD5" fehlen. Bei einem Auswertungsversuch erscheint "E2003 Undeklarierter...