PChar zu String!

[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