MessageBox - Kompatibilitätsproblem

[PierreB]

Moinsen ihr DP'sen :hi:

ich versuche derzeit mal ein paar ordentliche Fehlermeldungen in mein Programm einzubauen.
Leider bin ich hierbei gescheitert:
In einer MessageBox sollen erst Text, dann ein String (also auch Text), dann ein Zeilenumbruch und dann wieder Text ausgegeben werden.
Das ganze hab ich so versucht (datei ist eine Variable vom Typ String)

Delphi-Quellcode:

MessageBox(Self.Handle, 'Fehler #5: ' + datei + #13 + 'Die angegebene Datei ist bereits geöffnet !','Auftragsmanagement', 16);

Leider bekomme ich eine böse Fehlermeldung:

Zitat:

Inkompatible Typen: String und PAnsiChar

Kann mir jemand helfen ?

Danke schonmal. ;)

[Union]

Zitat:

Zitat von PierreB

Moinsen ihr DP'sen :hi:

ich versuche derzeit mal ein paar ordentliche Fehlermeldungen in mein Programm einzubauen.
Leider bin ich hierbei gescheitert:
In einer MessageBox sollen erst Text, dann ein String (also auch Text), dann ein Zeilenumbruch und dann wieder Text ausgegeben werden.
Das ganze hab ich so versucht (datei ist eine Variable vom Typ String)

Delphi-Quellcode:

MessageBox(Self.Handle, 'Fehler #5: ' + datei + #13 + 'Die angegebene Datei ist bereits geöffnet !','Auftragsmanagement', 16);

Leider bekomme ich eine böse Fehlermeldung:

Zitat:

Inkompatible Typen: String und PAnsiChar

Kann mir jemand helfen ?

Danke schonmal. ;)

Wie wärs so:
var

Delphi-Quellcode:

   datei : string;
begin
   datei := 'Tabelle.db';
   MessageBox(Self.Handle, pchar('Fehler #5: ' + Datei + #13 + 'Die angegebene Datei ist bereits geöffnet !'),pchar('Auftragsmanagement'), 16);
end;

[Aenogym]

Zitat:

Zitat von PierreB

Moinsen ihr DP'sen :hi:

ich versuche derzeit mal ein paar ordentliche Fehlermeldungen in mein Programm einzubauen.
Leider bin ich hierbei gescheitert:
In einer MessageBox sollen erst Text, dann ein String (also auch Text), dann ein Zeilenumbruch und dann wieder Text ausgegeben werden.
Das ganze hab ich so versucht (datei ist eine Variable vom Typ String)

Delphi-Quellcode:

MessageBox(Self.Handle, 'Fehler #5: ' + datei + #13 + 'Die angegebene Datei ist bereits geöffnet !','Auftragsmanagement', 16);

Leider bekomme ich eine böse Fehlermeldung:

Zitat:

Inkompatible Typen: String und PAnsiChar

Kann mir jemand helfen ?

Danke schonmal. ;)

hi pierre,

einfach den string zum PChat typecasten, dann klappts ;)

Delphi-Quellcode:

PChar('hallo')

aenogym

[PierreB]

Vielen Dank ihr beiden, so gehts. :cheers:

[pszopp]

Auch wenns schon klappt, hier noch ein Tipp:

Mit MessageDlg können auch Dialoge angezeigt werden.
Das hat den Vorteil, dass kein lästiges Handle übergeben werden muss.
Außerdem wird die Nachricht als String angegeben und muss deswegen nicht mit PChar
getypcastet zu werden.

Bsp.

Delphi-Quellcode:

  IF MessageDlg('Programm schließen?', mtConfirmation, [mbYes, mbNo], 0) = IDYes THEN Close;

CU

[Luckie]

Hat aber den Nachteil, dass sie die Sprache der Delphi Version haben.

@Assun: Fehlercode #5 ist aber: 'Access is denied.' ;) Wie wäre es mit:

Delphi-Quellcode:

Messagebox(Handle, PChar('Fehlercode: ' + IntToStr(GetLastError) + #13#10 + SysErrorMessage(GetLastError)), 'Foobar', MB_ICONSTOP);

[PierreB]

Zitat:

Zitat von Luckie

@Assun: Fehlercode #5 ist aber: 'Access is denied.' ;) Wie wäre es mit:

Delphi-Quellcode:

Messagebox(Handle, PChar('Fehlercode: ' + IntToStr(GetLastError) + #13#10 + SysErrorMessage(GetLastError)), 'Foobar', MB_ICONSTOP);

Moin Luckie,

1.) ich bin nicht Assun :shock:
2.) Naja, ich habe für mein Programm eigene Fehlercodes, hat also nichts mit den normalen zu tun. ;)