delphi - Lommeregner - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #4108 @ 29.06.03 20:05

Hej

Jeg er igang med en lommeregner og har lavet en før men jeg kan ikke huske hvordan jeg får den til at lægge sammen nå jeg siger 1 + 1 så siger den at det er 11.

Håber på at få hjælp.

Hilsen Johnny Rasmussen

7 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma

Sorter efter stemmer Sorter efter dato

Bruger #2654 @ 29.06.03 20:12

102

det er fordi du har 1 og 1 som strings - det skal være tal... eller det vil jeg tror - jeg kender problemet, men ikke delphi.

adam

Køb en zebra - og kald den plet

Bruger #1748 @ 29.06.03 20:14

Hej

Jeg er igang med en lommeregner og har lavet en før men jeg kan ikke huske hvordan jeg får den til at lægge sammen nå jeg siger 1 + 1 så siger den at det er 11.

Håber på at få hjælp.

Hilsen Johnny Rasmussen

Eksempel med 2 TEdits:

Kode

var
  Tal1 : Integer;
  Tal2 : Integer;
begin
  Tal1 := StrToInt(Edit1.Text);
  Tal2 := StrToInt(Edit2.Text);
  Showmessage(IntToStr(Tal1+Tal2));
end;

Det virker

Håber det hjælper dig videre!

MVH.
Armen L.A.

//Try before you ask!

[Redigeret d. 29/06-03 20:16:11 af Armen L.A.]

Bruger #4108 @ 29.06.03 21:02

Eksempel med 2 TEdits:
Kode
var
  Tal1 : Integer;
  Tal2 : Integer;
begin
  Tal1 := StrToInt(Edit1.Text);
  Tal2 := StrToInt(Edit2.Text);
  Showmessage(IntToStr(Tal1+Tal2));
end;
Det virker
Håber det hjælper dig videre!

MVH.
Armen L.A.

//Try before you ask!

Tak for svar men spurgte min far det gik lidt hurtigere så sorry ingen point er det ok ?

Bruger #2654 @ 29.06.03 22:04

102

Tak for svar men spurgte min far det gik lidt hurtigere så sorry ingen point er det ok ?

for min skyld ingen alarm - bare du selv opretter et svar, så du kan lukke tråden

adam
Køb en zebra - og kald den plet

Bruger #1748 @ 29.06.03 22:54

Tak for svar men spurgte min far det gik lidt hurtigere så sorry ingen point er det ok ?

Iorden med mig.. Men næste gang, så spørg din far først og derefter spørg udvikleren.dk ok ?
Dvs. at du har ingen bevis på at du spurgte din far

MVH.
Armen L.A.
----------------------------
//Try before you ask!

Bruger #4108 @ 03.07.03 20:42

Hej

Jeg er igang med en lommeregner og har lavet en før men jeg kan ikke huske hvordan jeg får den til at lægge sammen nå jeg siger 1 + 1 så siger den at det er 11.

Håber på at få hjælp.

Hilsen Johnny Rasmussen

Man skal bare skrive:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := floattostr(strtofloat(Edit1.Text) + strtofloat(Edit2.Text))
end;

Bruger #4108 @ 03.07.03 20:46

Hvorfor vil den kun skrive kommentar og ikke svar ?

Lommeregner

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler