Einzelnen Beitrag anzeigen

Benutzerbild von JamesTKirk
JamesTKirk

Registriert seit: 9. Sep 2004
Ort: München
604 Beiträge
 
FreePascal / Lazarus
 
#3

Re: Delphi Unit Lazarus lauffähig machen

  Alt 20. Dez 2009, 17:11
Du solltest eventuell auch folgendes vor dem {$asmmode} einfügen:

Delphi-Quellcode:
{$ifdef fpc}
  {$mode delphi}{$H+}
{$endif}
Das könnte zumindest ein paar der Fehler beseitigen.

Nichtsdestotrotz hast du dir da zu Beginn einen ziemlich harten Brocken ausgesucht

EDIT:
Mir fällt grad auf, dass da einige Interface Funktionen nicht mit deren Implementierung übereinstimmen:

z. B. Interface:
function Ansi2OEM(AnsiString: string): string; Implementierung:
function Ansi2OEM(AnsiString: WideString): WideString; Delphi ist hier seeeeeehhhhhrrrrr tolerant. FPC ist hier strikter, was ich allerdings auch gut finde!

EDIT2:
Ok... kompiliert nun. Veränderte Unit im Anhang. Einige (Hilfs)Funktionen kann man für FPC denke ich noch ifdefen.

Gruß,
Sven
Angehängte Dateien
Dateityp: pas mputools_794.pas (60,7 KB, 6x aufgerufen)
Sven
[Free Pascal Compiler Entwickler]
this post is printed on 100% recycled electrons
  Mit Zitat antworten Zitat