Filsize(datei vom typ file);

[Chrissi91]

Hallo,

ich habe folgenden Codeschnipsel (selbst geschrieben ^^)

Delphi-Quellcode:

if form1.checkbox2.checked=true then
   begin
    assignfile(datei1,edit2.text);
    assignfile(datei2,speichern);
    reset(datei1);
    reset(datei2);
    if FileSize(datei1) = FileSize(datei2) then //[Error] Unit1.pas(449): Missing operator or semicolon
     begin
      MessageDlg('Die Dateien wurden richtig umgewandelt ...', mtInformation, [mbOK], 0);
     end

...

Die Fehlermeldung [Error] Unit1.pas(449): Missing operator or semicolon kommt 2 Mal in der Zeile mit dem Filesize. Liegt es daran, dass ich datei1 und datei2 global vom typ file deklariert habe (also für alle proceduren innerhalb einer unit ist doch global, oder?)

was mache ich falsch? 3_of_8 konnte auch keinen Fehler finden. :gruebel: :wall:

[Sharky]

Hai Chrissi,

der Fehler muss durch etwas anderes versacht werden. Dein Code ist soweit er zu sehen ist richtig.

[Chrissi91]

So. Ich habe mal die Unit im Anhang. Ich weiß, die Unit ist nicht die Übersichtlichste. ^^

[Sharky]

Hai Chrissi,

genau habe ich mir die Unit nicht angesehen. Compilieren kann ich ihn ja ohne die DFM-Datei und die notwendigen anderen Units eh nicht.

Aber eines fällt auf: Du solltest dringend daran arbeiten deinen Quellcode zu formatieren.

Delphi-Quellcode:

function PassphraseQuality(const Password: String): Extended;
function Entropy(P: PByteArray; L: Integer): Extended;
 var
  Freq: Extended;
  I: Integer;
  Accu: array[Byte] of LongWord;
begin
.
end;
.
.

Alleine hier habe ich suchen müssen wo der Code für die Funktion PassphraseQuality überhaupt steht.

Solche sachen machen es fast unmöglich fehler im Code vernünftig zu suchen finde ich.
Ein kleiner Tip! Von den Jedis gibt es einen schönen Codeformater. Dieser formatiert dir den Quellcode fast genau nach dem Borlandstylequide.

[Chrissi91]

ist nur hagens teil ^^ habs jetzt weggelassen ... falls doch jemand etwas finden sollte, kann er mirs ja sagen

[St.Pauli]

Ich hab mir deine Unit angesehen - konnte aber keinen Fehler finden, daher:

1. Poste doch bitte dein ganzes Projekt. Es ist wirklich schwer, so einen Fehler zu finden, ohne es compilieren zu können...
2. Ich muss Sharky recht geben. Es ist sehr schwer deinem Code zu folgen, da er nicht wirklich schön formatiert ist. Und für die Zukunft, gewöhn dir doch gleich an, Codeteile zu kommentieren - es zahlt sich bei größeren Projekten irgendwann aus.

[Sharky]

Hai Chrissi,

ich habe deine Unit mal schnell durch den Codeformater gejagt. Eventuell ist das ja eine Anregung für dich ;-)

[St.Pauli]

Tut mir leid, dass das Thema schon ein bisschen alt ist und die Antwort vieleicht schon gar nicht mehr benötigt wird, aber sie viel mir gerade ein... :mrgreen:

Der Fehler ist, dass du bei dir eine Variable GetFileSize deklariert hast und die Funktion GetFileSize aufrufst. Benenn die Variable um und dann sollte es laufen :zwinker: