Fehlermeldung bei Verwendung von AssignFile

[UweR]

Hallo Leute,

bin gerade dabei ein altes Programm von D5 auf D7 umzustellen. Dabei haut mir der D7 eine Fehlermeldung um die Ohren mit der ich absolut nicht gerechnet habe und die ich mir auch absolut nicht erklären kann. Bei dem Code

Delphi-Quellcode:

var
   FPassword : File of TPassword;
     Password : TPassword;
     i : integer;

begin
   result := '';
     AssignFile(FPassword, sCUCMPath + '\cucm32.cpw');

meint er: [Fehler] Es gibt keine überladene Version von 'AssignFile', die man mit diesen Argumenten aufrufen kann

TPassword sieht übrigens so aus:

Delphi-Quellcode:

   TPassword = record
      acData : array[0..255] of char;
        acControl : array[0..7] of char;
   end;

Anyone any ideas?

[Noedel]

ersetz mal char mir string[1]

[UweR]

Hilft nicht, ich habe auch spasshalber mal die char-arrays durch integer ersetzt. Ergebnis ist das gleiche.

[DeddyH]

Von welchem Typ ist sCUCMPath?

[UweR]

sCUCMPath ist string, das kanns nicht sein. Wenn ich File of TPassword durch TextFile ersetze ist der Compiler auch an dieser Stelle erst mal glücklich.

[Noedel]

also bei mir sieht ne speichern procedure so aus

Delphi-Quellcode:

procedure save;
var 
  f : FILE OF meinrecord;
  dateiname : STRING;
  rec: meinrecord
begin
  ASSIGN(f,dateiname); {Dateiname initialisieren}
  REWRITE(f); {Datei falls vorhanden überschreiben}
  WRITE(f,rec); {Record schreiben}
  CLOSE(f); {Datei schließen}
end;

[DeddyH]

Vielleicht gibt es irgendwo eine Klasse TPassword, die sich mit der Deklaration beißt. Was passiert denn, wenn Du den Record mal nach TPasswort umbenennst und FPassword dann als file of TPasswort deklarierst?

[UweR]

Es muss irgendein Seiteneffekt oder eine Einstellungssache sein. Wenn ich ein neues Projekt mit D7 anlege und mir den Code da rein haue geht's auch ohne Mecker. Es kann aber nicht an TPassword liegen weil es mir auch anderen Stellen passiert wo ich mit typisierten Dateien arbeite.

[DeddyH]

Da können wir aus der Ferne leider auch nur raten. Und das kommt bei jeder typisierten Datei im Projekt?

[nahpets]

Hallo,

dasda kann ich mit Delphi 7 problemlos kompilieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Type
  TPassword = record
    acData    : array[0..255] of char;
    acControl : array[0..7] of char;
  end;

var
   FPassword : File of TPassword;
   Password  : TPassword;
   i         : integer;
   sCUCMPath : String;
begin
  sCUCMPath := 'C:';
  AssignFile(FPassword, sCUCMPath  + '\cucm32.cpw');
  // System.AssignFile(FPassword, sCUCMPath  + '\cucm32.cpw');
end;

Versuch mal, ob bei Dir die im Beispiel auskommentierte Version funktioniert. Eventuell hast Du ja irgendeine Unit eingebunden, die ebenfalls ein AssignFile enthält, dass aber andere (oder keinen) Parameter erwartet.

[UweR]

@Detlef:
Zumindest in einer Unit ist es so. Ich müßte in meinem Projekt mal die anderen Units überprüfen.

@Stephan:
Den Verdacht das da auf eine andere Unit verwiesen wird ist mir auch schon gekommen, ich werde mal in diese Richtung weiterforschen. Mal schauen was sich durch den Wechsel von D5 auf D7 so alles geändert ahben könnte. Der von dir gepostete Code funktioniertt in einer seperaten Unit einwandfrei, in die Unit wo er eigentlich rein soll aber nicht, deutet also stark auf ein Problem mit den eingebundenen Units hin.

[DeddyH]

Du könntest ja mal in einem Testprojekt die uses-Klausel so erweitern, dass dieselben Units in derselben Reihenfolge wie in Deinem "Problemkind" eingebunden werden. Kommt dort dann dieselbe Fehlermeldung, weiß man, in welcher Richtung man weiterzuforschen hat.

[nahpets]

Zitat:

Zitat von UweR

@Detlef:
Zumindest in einer Unit ist es so. Ich müßte in meinem Projekt mal die anderen Units überprüfen.

@Stephan:
Den Verdacht das da auf eine andere Unit verwiesen wird ist mir auch schon gekommen, ich werde mal in diese Richtung weiterforschen. Mal schauen was sich durch den Wechsel von D5 auf D7 so alles geändert ahben könnte. Der von dir gepostete Code funktioniertt in einer seperaten Unit einwandfrei, in die Unit wo er eigentlich rein soll aber nicht, deutet also stark auf ein Problem mit den eingebundenen Units hin.

Tritt der Fehler auch noch mit dieser Zeile auf?

Delphi-Quellcode:

System.AssignFile(FPassword, sCUCMPath  + '\cucm32.cpw');

[mkinzler]

Versuche mal die relativen Pfade zu vermeiden

[DeddyH]

Welche relativen Pfade?

[mkinzler]

Zitat:

\cucm32.cpw

[DeddyH]

Zitat:

Delphi-Quellcode:

sCUCMPath  + '\cucm32.cpw'

;)

[UweR]

Mit System.AssignFile geht es

[DeddyH]

Dann ist AssignFile nochmal in irgendeiner anderen eingebundenen Unit deklariert. Das sollte sich mit "In Dateien suchen" finden lassen.

[Hawkeye219]

Hallo,

Zitat:

Zitat von DeddyH

Das sollte sich mit "In Dateien suchen" finden lassen.

...oder einfach den Mauszeiger über "AssignFile" stehen lassen. Der dann angezeigte Hint sollte die notwendigen Informationen enthalten.

Gruß Hawkeye

[DeddyH]

Bei Delphi 7 auch schon? Na gut, wenn es so geht, ist das natürlich schneller.

[turboPASCAL]

// Edit: Quark. :oops:

Wäre es nicht besser und etwas sicherer noch eine kleine Verschlüsselung der Daten einzubauen ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  TPassword = record
    acData    : array[0..255] of char;
    acControl : array[0..7] of char;
  end;

var
   FPassword : File of TPassword;
   Password  : TPassword;
   i         : integer;
   sCUCMPath : String;

  function Moppel(XPasswords: TPassword): TPassword;
  var n: integer;
  begin
    ZeroMemory(@Result, sizeof(TPassword));
    for n := 0 to length(XPasswords.acData)-1 do
    begin
      if n <= length(XPasswords.acControl)-1 then
        Result.acControl[n] := chr( n+1 xor ord(XPasswords.acControl[n]) );
      Result.acData[n] := chr( n+1 xor ord(XPasswords.acData[n]) );
    end;
  end;

begin
  ZeroMemory(@Password, sizeof(TPassword));

  Password.acData := 'Heidi Müller';
  Password.acControl := 'DATABASE';

  Password := Moppel(Password);

  sCUCMPath := 'C:';
  AssignFile(FPassword, sCUCMPath  + '\Users\Admin-User\Desktop\cucm32.cpw');
  rewrite(FPassword);
  write(FPassword, Password);
  CloseFile(FPassword);

  showmessage(format('acData: %s'#13'acControl: %s', [Password.acData, Password.acControl]));


  // lesen
  AssignFile(FPassword, sCUCMPath  + '\Users\Admin-User\Desktop\cucm32.cpw');
  reset(FPassword);
  read(FPassword, Password);
  CloseFile(FPassword);

  Password := Moppel(Password);

  showmessage(format('acData: %s'#13'acControl: %s', [Password.acData, Password.acControl]));
end;