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

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

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

  • 0
Μέλας Κύων

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

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

4 απαντήσεις σε αυτή την ερώτηση

Προτεινόμενες αναρτήσεις

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

 

Ενημέρωση:

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

 

var

S : string;

pp: pansichar;

begin

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

pp:[email protected][1];

 

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

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες

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

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

Κοινοποιήστε αυτήν την ανάρτηση


Σύνδεσμος στην ανάρτηση
Κοινοποίηση σε άλλες σελίδες
×
×
  • Δημιουργία νέου...