Zitat von
Shaddar:
Delphi-Quellcode:
program Versuch1;
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
var
x:integer;
begin
{ TODO -oUser -cConsole Main : Hier Code einfügen }
writeLn('hallo');
readLn;
MessageBox(0,'Ich bin eine MessageBox','Ergebnis',MB_OK or MB_ICONINFORMATION);
end.
bitte delphi-tags nutzen. Ok, also zuerst einmal ReadLn hat einen optinalen Parameter zu einer Variable in die dann das Ergebnis geschrieben wird. Also in deinem Fall wäre es ReadLn(x);.
Dannach kannst du die Berechnung durchführen. Beispielsweiße X := X * X;
Dann würest du logischerweiße das Ergebnis ausgeben wollen. Da MessageBox allerdings gerne einen String hätte wird hier eine Umwandlung (Integer zu String) nötig. Die Funktion hierfür heißt IntToStr(). Mit einem Paramter.
Wenn du das dann so aptipst bleibt noch ein kleines Problem. MessageBox wird von Delphi an Windows-DLLs weitergereicht. Diese sind in C/C++ geschrieben und können mit Delphi Strings nichts anfangen sondern brauchen ein array of char. In Delphi heißt dieser String-Typ PChar. Eine Umwandlung Delphi String -> PChar geht mit der gleichnamigen Funktion "PChar".
Der komplette Code wäre hier:
Delphi-Quellcode:
program Versuch1;
{$APPTYPE CONSOLE}
uses
SysUtils,windows;
var
x: Integer;
begin
ReadLn(X);
X := X * X;
MessageBox(0,PChar('Das Ergenis lautet ' + IntToStr(X) + '!'),
'Ergebnis',MB_OK or MB_ICONINFORMATION);
end.
Lass dich nicht fertigmachen. Wenn man sich erstmal eingearbeitet hat ist Delphi viel verständlicher.