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:

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 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:
function MessageBox(Text, Caption: PChar; Flags: Word): Integer;

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 von Mysterio08:

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.