Hilfe beim Übersetzten von C in Delphi

[simjoh]

Hallo Klaus,

also einfach @ weglassen??

[simjoh]

Nee, geht auch nicht, dann meldet der Compiler

Inkompatible Typen Char und PAnsiChar

Was tun?

[Robert Marquardt]

Wie ist denn die genaue Fehlermeldung? Ich habe oben in der Source die fehlenden Klammern ergaenzt (zu viel C in letzter Zeit).

[simjoh]

Die Fehlermeldung taucht bei

StrLComp(@Buffer[I], SubString, SubLen) = 0)

auf, und ist (mit dem @): "Inkompatible Typen". Der Cursor bleibt hinter dem Komma stehen.

Ohne das @ ist die Fehlermeldung: "Inkompatible Typen Char und AnsiChar".

Gruß

[simjoh]

Ach so, die Klammern habe ich natürlich schon gesetzt, daran liegts nicht.

[simjoh]

By the way, wie könnte man den C-Code

sprintf_s(NewName,"%s.%s",TableName,GL_Extention);

übersetzen?

Enspricht sprintf_s in Delphi writeln?

[mkinzler]

Delphi-Quellcode:

StrLComp(PAnsiChar(Buffer), SubString, SubLen) = 0)

[Robert Marquardt]

Hast Du typed Pointers an in den Projektoptionen? "StrLComp(PChar(@Buffer[I]), SubString, SubLen) = 0)" duerfte helfen.
@Buffer[I] ist vom Typ Pointer waehrend StrLComp dort einen PChar erwartet. Alternativ versuche "StrLComp(Buffer + I, SubString, SubLen) = 0)", denn fuer PChar und Integer ist die Addition definiert und das Ergebnis vom Typ PChar.

@mkinzler, das geht daneben, denn der Offset I wurde vergessen.

[simjoh]

Jaaaaaaaaaaaaaaaaaaaaaaaaaaaaa, super!! Es funzt. Herzlichen Dank!!

Wenn ich mal wieder ein Problem hat mit C, ich frag dann halt nochmal nach in der Hoffnung, dass du (ihr) weiterhelfen wollt und könnt.

Wie ist das mit sprintf_s? Haste da nochma en Tipp?

[Robert Marquardt]

Zitat:

Zitat von simjoh

By the way, wie könnte man den C-Code

sprintf_s(NewName,"%s.%s",TableName,GL_Extention);

übersetzen?

Enspricht sprintf_s in Delphi writeln?

An sich neues Problem, neue Frage.

sprintf_s:
s = in einen String ausgeben
print = Zeichen ausgeben
f = formatted
_s = (eine MS-Erfindung) safe also sicher gegen Pufferueberlaeufe

Delphi-Quellcode:

NewName := Format('%s.%s', [TableName, GL_Extention]);

ist die Entsprechung.