javscript til Delphi

Hvis vi antager at "form" i din script er en TForm (Form1) og at form.R, form.r2 og form.result er alle af typen TEdit (Der er skabt design-time på formen):

var
  R, r2 : Integer;
  Limit : Single;
begin
  R := IntToStr( Form1.R.Text );
  r2 := IntToStr( Form1.r2.Text );
  Limit := Sqrt( ( ( ( R * R ) + ( r2 * r2 ) ) / 2 ) );

  Form1.result.Text := FloatToStr( ( R - Limit ) / 2 );
end;

Held og Lykke
Søren

converteringen går den forkerte vej det skal være

StrToInt

eller

val(Text,Integer,Integer);

var
  R:Integer;
  r2:Integer;
  error:Integer;
begin
  val(Form1.R.Text,R,error);
  val(Form1.r2.Text,r2,error);
.
.
.

-----------------------------------------------------------------------------

Min side ->www.the-hive.dk/~donp/

Hvis vi antager at "form" i din script er en TForm (Form1) og at form.R, form.r2 og form.result er alle af typen TEdit (Der er skabt design-time på formen):

Kode 

var
  R, r2 : Integer;
  Limit : Single;
begin
  R := IntToStr( Form1.R.Text );
  r2 := IntToStr( Form1.r2.Text );
  Limit := Sqrt( ( ( ( R * R ) + ( r2 * r2 ) ) / 2 ) );

  Form1.result.Text := FloatToStr( ( R - Limit ) / 2 );
end;

Held og Lykke
Søren

Jeg har sat den eksakte samme kode ind på min buttons onclick... jeg ændrede lige at det var på form3... Jeg kaldte mine edits R, r2 og result.

så da jeg kørte det kom de her fejl....

[Error] Unit3.pas(48): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Error] Unit3.pas(49): There is no overloaded version of 'IntToStr' that can be called with these arguments
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas'


hva er der i vejen... min applikation har 3 forme... og dette "script" skal køre på form3...

Det er Delphi interprise 7.0 (Build 4.453) for at være præcis...


Best regards Rune B
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

Ja, Nørden har ret! Jeg var vist lidt for hurtig til at svare!

var
  R, r2 : Integer;
  Limit : Single;
begin
  R := StrToInt( Form1.R.Text );
  r2 := StrToInt( Form1.r2.Text );
  Limit := Sqrt( ( ( ( R * R ) + ( r2 * r2 ) ) / 2 ) );

  Form1.result.Text := FloatToStr( ( R - Limit ) / 2 );
end;

Held og Lykke
Søren