Problem mit Message Box-Umwandlung

[Mysterio08]

Guten Tag,
ich bins mal wieder. Eigentlich eine einfache Sache: Ich habe einen Wert errechnet und will diesen nun in einer MessageBox ausgeben lassen; ich habe folgenden Code geschrieben:

Delphi-Quellcode:

procedure TForm1.Button_BezahlenClick(Sender: TObject);
begin
  Application.MessageBox ('Sie müssen ' + PChar(Summe) + ' € bezahlen', 'Information', MB_ICONINFORMATION)
  //Summe wurde als Double deklariert
end;

Was mache ich denn falsch, denn HIER steht:

Delphi-Quellcode:

PChar(s)

Nur, wenn ich einen Wert errechnen möchte, kann ich ja nicht PChar nehmen, denn ich dachte, mit diesen Werten kann man Zeichen aufnehmen (ähnlich wie String??), oder? - Ich hab nämlich noch gar nichts mit PChar zu tun gehabt.

Danke schonmal und
mfg.

[Bernhard Geyer]

Der gesamte String ist muß als PChar genommen werden:

Delphi-Quellcode:

procedure TForm1.Button_BezahlenClick(Sender: TObject);
var
  s: String;
begin
  s := 'Sie müssen ' + Summe + ' € bezahlen'
  Application.MessageBox (PChar(s), 'Information', MB_ICONINFORMATION)
  //Summe wurde als Double deklariert
end;

[Luckie]

Wenn Summe als Double deklariert wurde, muss die dan nnicht noch in einen String konvertiert werden?

[Mysterio08]

Zitat:

Zitat von Luckie

Wenn Summe als Double deklariert wurde, muss die dan nnicht noch in einen String konvertiert werden?

Nein, das geht bei MessageBoxen nicht! Da wird der Typ PChar verlangt:

Delphi-Quellcode:

function MessageBox(Text, Caption: PChar; Flags: Word): Integer;

Zitat:

Zitat von Bernhard Geyer

Der gesamte String ist muß als PChar genommen werden:

Delphi-Quellcode:

procedure TForm1.Button_BezahlenClick(Sender: TObject);
var
  s: String;
begin
  s := 'Sie müssen ' + Summe + ' € bezahlen'
  Application.MessageBox (PChar(s), 'Information', MB_ICONINFORMATION)
  //Summe wurde als Double deklariert
end;

Nur wenn ich Summe als String deklariere, kann ich ja nicht mit ihr rechnen, oder?
/Edit
Jetzt hab ich's gerafft! ;D
Funktioniert einwandfrei, danke

[jaenicke]

Trotzdem musst du die Zahl in einen String umwandeln.

Delphi-Quellcode:

Application.MessageBox(PChar('Sie müssen ' + Format('%.2f', [Summe]) 
  + ' € bezahlen'), 'Information', MB_ICONINFORMATION or MB_OK);

oder

Delphi-Quellcode:

Application.MessageBox(PChar('Sie müssen ' + CurrToStrF(Summe, ffFixed, 2) 
  + ' € bezahlen'), 'Information', MB_ICONINFORMATION or MB_OK);

[turboPASCAL]

Delphi-Quellcode:

var
  Summe: Single;

//...

Application.MessageBox(PCHAR(Format('Sie müssen %0.2f € bezahlen', [Summe])), 'Information',MB_ICONINFORMATION or MB_OK);

Ist liederleserlicher;)

[jaenicke]

Wobei statt Single oder Double auch direkt der Datentyp Währung eine Idee wäre, Currency gibt es nämlich auch noch als Datentyp.

[Luckie]

Zitat:

Zitat von Mysterio08

Zitat:

Zitat von Luckie

Wenn Summe als Double deklariert wurde, muss die dan nnicht noch in einen String konvertiert werden?

Nein, das geht bei MessageBoxen nicht! Da wird der Typ PChar verlangt:

Das ist klar. Aber er baut ja in s seine Zeichenkette zusammen und da muss er Summe erst in einen String umwandeln, um die Zeichenkette so zusammenbauen zu können.