Anweisung funktioniert in Delphi 2005, aber nicht in Lazarus

[Delphi_gn7]

Hallo,

ich habe mit Delphi 2005 folgenden Code in einem Programm:

Delphi-Quellcode:

        while not Eof(datei) do  // Dateitext in s2 laden
              begin
               Readln(datei,s);
               CharToOem(PChar(s),PChar(s));
               s2:=s2+s;
              end;

Da Delphi 2005 bei mir nicht mehr funktioniert, benutze ich nun Lazarus, was mir in der Zeile

Delphi-Quellcode:

CharToOem(PChar(s),PChar(s));

den Error: Illegal type conversion: "ShortString" to "^Char" anzeigt. Was muss ich ändern, damit die Zeile in Lazarus funktioniert?

Mfg

[DeddyH]

Wie ist s denn deklariert? Bei mir geht das nämlich (Lazarus 0.9.26.2).

[Delphi_gn7]

s ist ein String - muss es in Lazarus vielleicht ne char Variable sein? dann müsste ich CharToOem wohl irgendwie mit einer schleife verbinden

edit: habe auch Lazarus 0.9.26.2 (Beta!)

[uligerhardt]

Zitat:

Zitat von Delphi_gn7

s ist ein String - muss es in Lazarus vielleicht ne char Variable sein? dann müsste ich CharToOem wohl irgendwie mit einer schleife verbinden

Der Fehlermeldung nach zu urteilen, die du oben zitierst, scheint s ein ShortString zu sein, also kein "normaler" string. Den kannst du auch in Delphi nicht einfach so nach PChar casten. Schau mal nach, ob du irgendwelche Compileroptionen verstellt hast. In Delphi wäre das {$H+}, {$LONGSTRINGS ON} oder irgendwas mit "Huge-Strings" im Optionsdialog.

[Delphi_gn7]

Zitat:

Zitat von uligerhardt

{$H+}, {$LONGSTRINGS ON}

Cool, jetzt geht#s :)

Vielen Dank :)

Mfg