string und PChar in Application.MessageBox

[Nisbo]

Hallo,

ich habe folgenden Code (Ausschnitt)

Delphi-Quellcode:

var
  erstelltD, erstelltT : string;
  text1, text2 : pchar;
  neueinlesen : Integer;
....

if FileExists('datei.txt') then begin
   erstelltD := DateToStr(FileDateToDateTime(FileAge('datei.txt')));
   erstelltT := TimeToStr(FileDateToDateTime(FileAge('datei.txt')));
   text1 := 'Die Liste wurde bereits am '
              + PChar(erstelltD)
              + ' um '
              + PChar(erstelltT)
              + ' Uhr vom Server geladen. Möchten Sie die Liste vom Server neu einlesen ?';

   text2 := 'Daten neu einlesen ?';

   if Application.MessageBox(text1, text2, MB_YESNO + MB_DEFBUTTON2) <> IDYES then
      begin
         neueinlesen := 0;
      end;
end;

und prüfe ob es eine datei schon gibt, wenn es diese datei gibt dann soll die info ausgegeben werden mit Datum und Zeit wann die Datei erstellt wurde.

das ganze hat auch vorher in anderer Version mittels ShowMessage funktioniert, aber da ShowMessage in Threads nicht geht muß ich ja eine MessageBox nehmen und dort bekomme ich einfach nicht Datum und Zeit angezeigt, sonmdern immer den Fehler:

[Fehler] Unit1.pas(242): Inkompatible Typen: 'String' und 'PChar'

MessageBox braucht ja PChar

Hat einer ne Idee wie ich das Problem lösen kann ?

[jfheins]

1. Du kannst den String erst zusammensetzen, und dann nach PChar casten.

2. Die Flags wie MB_YESNO immer (!angewöhnen!) mit or verbinden, nicht mit +

Also so:

Delphi-Quellcode:

var 
  erstelltD, erstelltT : string; 
  text1, text2 : String; 
  neueinlesen : Integer; 
.... 

if FileExists('datei.txt') then begin 
   erstelltD := DateToStr(FileDateToDateTime(FileAge('datei.txt'))); 
   erstelltT := TimeToStr(FileDateToDateTime(FileAge('datei.txt'))); 
   text1 := 'Die Liste wurde bereits am ' 
              + erstelltD 
              + ' um ' 
              + erstelltT 
              + ' Uhr vom Server geladen. Möchten Sie die Liste vom Server neu einlesen ?'; 

   text2 := 'Daten neu einlesen ?'; 

   if Application.MessageBox(PChar(text1), PChar(text2), MB_YESNO or MB_DEFBUTTON2) <> IDYES then 
      begin 
         neueinlesen := 0; 
      end; 
end;

Desweiteren würde ich dir empfehlen, neueinlesen als Boolean zu deklarieren,und zu initialisieren ;)

[Nisbo]

vielen dank, so funktioniert es
ich war eigendlich der meinung das ich das schon mal versucht hatte, aber dem war dann wohl nicht so :D