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

markieren

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:

markieren

Delphi-Quellcode:

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

Anyone any ideas?

ersetz mal char mir string[1]

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

Von welchem Typ ist sCUCMPath?

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.

also bei mir sieht ne speichern procedure so aus

zusammenfalten · markieren

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;

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?

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.

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

Hallo,

dasda kann ich mit Delphi 7 problemlos kompilieren:

zusammenfalten · markieren

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.