σε Delphi για messagebox

[Μέλας Κύων]

καλησπερα. Εχω σε φόρμα ενα ΤΕdit πλαίσιο κειμένου κι ένα κουμπί. θέλω πατώντας το κουμπί να εμφανίζει μήνυμα με messagebox το κείμενο που είναι γραμμένο μέσα στο ΤΕdit πλαίσιο κειμένου.

Προσπάθησα στην αρχή ως εξής:

var

S : string;

begin

S:= Edit1.text; // περνώ στην S το κειμενο

application.messagebox('Tιτλος μηνυματος','Eγραψες '+S , mbInformation , [MBok] ..etc...)

To προβλημα είναι στο S: Μου βγαζει μήνυμα λαθους ότι υπαρχει ασυμβατότητα αναμεσα σε string δηλ. το Edit1.text και σε τυπο PAnsiChar. Προφανώς πρεπει να μετατρέψω το Edit1.text σε PAnsiChar για να το περάσω ως παραμετρο στη messagebox.

Εχει καποιος ιδεα πως μπορω να κανω μετατροπή απο string σε PAnsiChar ή τελος παντων πως μπορω να ξεπερασω το προβλημα?

[GCMH]

Μια λύση θα ήταν αντί για την application.messagebox να χρησιμοποιούσες τη ShowMessage() ή τη MessageDialog(), που δέχονται απευθείας string.

 

Ενημέρωση:

Κατά μια άλλη εκδοχή μπορείς να κάνεις και κάτι άλλο:

 

var

S : string;

pp: pansichar;

begin

S:= 'Eγραψες '+Edit1.text;

pp:=@s[1];

 

application.messagebox('Tιτλος μηνυματος' ,pp , mbInformation , [MBok] ..etc...)

[sivadWS2]

Δοκίμαζε πρώτα το αυτονόητο

application.messagebox('Tιτλος μηνυματος',Pchar('Eγραψες '+S) , mbInformation , [MBok] ..etc...)

[Μέλας Κύων]

EYXAPIΣΤΩ ΠΑΙΔΙΑ

[Directx]

Υπάρχει και η MessageDlg