Προς το περιεχόμενο

σε 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 ή τελος παντων πως μπορω να ξεπερασω το προβλημα?

Συνδέστε για να σχολιάσετε
Κοινοποίηση σε άλλες σελίδες

Μια λύση θα ήταν αντί για την 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...)

Συνδέστε για να σχολιάσετε
Κοινοποίηση σε άλλες σελίδες

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...