[Delphi] ShowMessage a MessageBox

witam ;]

mam taki kawalek kodu w programie:

  msgbox := TStringList.Create;
  cmd := Copy(msg, 0, 2);
  if cmd = '-1' then
    begin
      Explode(msg, '~', msgbox);
      ShowMessage(msgbox[1]);
    end;

i dziala, jak przyjdzie string, sprawdza 2 pierwsze znaki, jak to sa "-1" to dzieli string przez "~" i wyswietla 2 czesc, czyli tresc komunikatu, ale... chce np. dodac tytul, zmienic ikone itd ;] wiec uzywam funkcji MessageBox i kod wyglada tak:

  msgbox := TStringList.Create;
  cmd := Copy(msg, 0, 2);
  if cmd = '-1' then
    begin
      Explode(msg, '~', msgbox);
      Application.MessageBox(msgbox[1], msgbox[2], MB_OK or MB_ICONERROR);
    end;

to juz nie dziala... blad:

[Error] Unit1.pas(60): Incompatible types: 'String' and 'PAnsiChar'

ktos wie o co chodzi? :P

Tak. O niekompatybilne typy. Próbujesz przekazać String w argumencie, w którym funkcja oczekuje PAnsiChar (a konkretnie w dwóch argumentach)

po prostu napisz:

 Application.MessageBox(PAnsiChar(msgbox[1]), PAnsiChar(msgbox[2]), MB_OK or MB_ICONERROR);

dziala, thx :)

chlopie wez sie za jakis podstawowy kurs delphi albo kub sobie ksiazke a nie z kazda pierdala lecisz na forum ! :-[