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 ?