PChar zu String!

[1PM]

Hallo!

Wie wandelt man einen PChar in einen STring um? ICh bin schon langsam am verzweifeln, habe schon vieles ausprobiert!

Danke im voraus!

Gruß
1PM

[sakura]

Im Notfall einfach die PChar Variable als String casten.
  strVar := String(pchVar); ansonsten empfehle ich die Funktion StrPas
  strVar := StrPas(pchVar); ......

[1PM]

HEy Sakura!

Danke für die Antwort, fkt. aber leider nicht!

Code:

function datetoday(payoffdayOP: integer): string;
begin
 case payoffdayOP of
   1   : Result:='Montag';
   2   : Result:='Dienstag';
   3   : Result:='Mittwoch';
   4   : Result:='Donnerstag';
   5   : Result:='Freitag';
   6   : Result:='Samstag';
   7   : Result:='Sonntag';
 end;

 if (payoffdayOP>7) or (payoffdayOP<1)
   then Result:='Ruhetag';
end;



var      
timeOP1, timeop2: string;

      timeOP1:=strpas(datetoday(payoffdayxy));
      timeOP2:=strpas(datetoday(payoffday));
      Button := Application.MessageBox(timeop1+'   '+timeop2 ,'Abfrage', 36);

Gruß 1PM

[r_kerber]

ich denke in Deinem Beispiel ist das StrPas einfach zuviel, da die Funktion datetoday ja auch schon String zurückliefert. Also sollte eigentlich keine weitere Typumwandlung erforderlich sein!
Und noch ein Tip für Deine case-Anweisung: Wenn Du zusätzlich noch einen else-Zweig einbaust, kannst Du Dir die if-Abfrage sparen.

[Gast]

Vielleich so?

Code:

var
timeOP1, timeop2: string;
begin
  timeOP1:=datetoday(payoffdayxy);
  timeOP2:=datetoday(payoffday);

Button := Application.MessageBox(strpas(timeop1)+'   '+strpas(timeop2) ,'Abfrage', 36);

end;

oder

Button := Application.MessageBox(PChar(timeop1)+'   '+Pchar(timeop2) ,'Abfrage', 36);

[Luckie]

Die Messagebox erwartet eine PChar und keinen String!

Delphi-Quellcode:

timeOP1 := datetoday(payoffdayxy); 
timeOP2 := datetoday(payoffday) 
Button := Application.MessageBox(PChar(timeop1+'   '+timeop2) ,'Abfrage', 36);

Und nimm statt der 36 mal die Konstante, sonst weißt du in zwei Wochen nicht mehr, was die macht / anzeigt.

[Motzi]

Zitat von sakura:

Im Notfall einfach die PChar Variable als String casten.
  strVar := String(pchVar); ansonsten empfehle ich die Funktion StrPas
  strVar := StrPas(pchVar); ......

Ich weiß ja nicht wie das bei deiner Delphi-Version ist, aber bei meiner schaut StrPas ungefähr so aus:

Delphi-Quellcode:

function StrPas(p: Pchar): String;
begin
  Result := String(p);
end;

(hab den Code aus dem Kopf geschrieben, da ich momentan kein Delphi zur Hand hab, aber soweit ich mich erinnern kann macht die Funktion StrPas auch nichts andres als einen einfachn Cast auf String!)

[1PM]

MessageBox(PChar, PChar, 36);

Das war zu viel Alk gestern

DAnke für eure Hilfe

[sakura]

Zitat von Motzi:

Ich weiß ja nicht wie das bei deiner Delphi-Version ist...

Drastischer, aber dessen war ich mir jetzt auch nicht bewusst.

Delphi-Quellcode:

function StrPas(const Str: PChar): string;
begin
  Result := Str;
end;

......