[Delphi] ShowMessage a MessageBox

Odpowiedz Nowy wątek
2006-12-23 18:07
Unn4m3dH4ck3r
0

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

Pozostało 580 znaków

2006-12-23 18:36
0

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


M.O.R.R.I.S.: Mechanical Obedient Replicant Responsible for Infiltration and Sabotage
morris#rarlab*com

Pozostało 580 znaków

2006-12-23 18:42
0

Poprostu napisz:

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

Pozostało 580 znaków

2006-12-23 20:58
Unn4m3dH4ck3r
0

dziala, thx :)

Pozostało 580 znaków

2006-12-24 11:43
antydekiel
0

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

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0