Einfaches Addieren +3

[JackTheRipper]

Hi,

Also ich hab ganz einfach geschrieben.

Delphi-Quellcode:

var
x,y: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
 x := strtoInt(zahl1.text);
 y := strtoInt(zahl1.Text);

 y := x +3;

y := IntToStr(ergebniss1.text);
showmessage(y);

end;

doch er mekert bei der zeile

y := IntToStr(ergebniss1.text); Ich bin fast am ausrasten und weiß net was er will. Hab erst seit 1 Std was mit Delphi und Rechnen zu tun aber verstanden hab ich das ich den String zum Integer machen muss damit Delphi rechnen kann, aber um das ergebniss auszugeben muss ich doch wieder Integer zum String umformen. Aber wo is der fehler ?

Fehlercode

Zitat:

[Error] Unit1.pas(39): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Error] Unit1.pas(40): Incompatible types: 'String' and 'Integer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[s.h.a.r.k]

Also IntToStr macht aus einem Integer einen String, d.h.

Delphi-Quellcode:

var s: String;
s := IntToStr(3);

Was du brauchst ist aber StrToInt, oder?!

[JackTheRipper]

Im prinzip ist das ganz leich ich hab ein Programm mit 2 Buttons, 2Editfelder und 2Label. Kurtz und gut soll man ins edit1(zahl1) eine zahl eingeben und +3 rechnen. Und im Edi2(Ergebniss1) ausgeben. Ich teste ma dein code ob ich ihn reinbekomme sinnvoll!

[Daniel B]

Delphi-Quellcode:

y := IntToStr(ergebniss1.text); 
showmessage(y);

erste Zeile machst du ein String für die Integervariable, also andersrum, StrToInt
zweite Zeile ShowMessage(IntToStr(y))

[JackTheRipper]

Danke!
Hat geklappt!

Delphi-Quellcode:

var x,y: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
 x := strtoInt(zahl1.text);
 y := strtoInt(zahl1.Text);


 y := x +3;


ShowMessage(IntToStr(y));

[Muetze1]

Bzw. ergebniss1.text := IntToStr(y) das wolltest du doch eigentlich. Links steht immer wo es hin soll, und rechts wo es herkommt, wenn es eine Zuweisung ist (:=).

[Nicolai1234]

Ergebnis mit einem s
und...

Delphi-Quellcode:

var x,y: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
 x := strtoInt(zahl1.text);
 y := strtoInt(zahl1.Text); //diese Zeile kannst du dir sparen, da y danach neu zugewiesen wird


 y := x +3;


ShowMessage(IntToStr(y));