Pludsning af to tal

Tags:    delphi

Burde denne kode ikke lægge tallende sammen:

var
S1, S2: string;
begin
S1 := Edit1.Text;
S2 := Edit2.Text;
edit3.text := '';
edit3.text :=S1+S2;
end;

???????????????????????

Hvorfor virker det ikke????????



8 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Why...
Hos mig kommer den med et mærkelig besked.

Findes der en anden kode der virker ligesom den her???

Hvad siger beskeden?
Men du kan jo lave en for eksempel:
var
S1, S2, S3: integer;
begin
S1:= (Strtoint(edit1.text));
S2:= (Strtoint(edit2.text));
S3:= (S1)+(S2);
Edit3.text:= (Inttostr(S3);
end;

Men den anden kode du har SKAL virke...

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 21/02-04 00:33:22 af Rune Jensen (RoZ)]



Vrøvl denne kode:

var
S1, S2: integer;
begin
S1 := StrToInt(Edit1.Text);
S2 := StrToInt(Edit2.Text);
edit3.text := (IntToStr(S1+S2));




Svar hurtigt. skal i seng snart...



Øhh joo efter hvad jeg kan se skulle den gerne virke fint :S

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------



Why...
Hos mig kommer den med et mærkelig besked.

Findes der en anden kode der virker ligesom den her???



En hel masse mystisk.
Øhhhhhhhh



Project Project1.exe raised exception class EConvertError whith Message''' Is not a valid integer value'.
Process stopped. Use Step or run to continue





Du SKAL skrive tal i de to editbokse ellers kommer den med fejl..
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------



Tak...



t