SRL Archive - Delphi/FPC Help and Tutorials

Well here is the script, i'll be grateful if you help me :):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure DoMath;
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure DoMath(Sender: TObject);
var
  i, c,hl, hs: Integer;
begin
  hs:=StrToInt(TForm.Edit2);
  hl:=StrToInt(TForm.Edit1);
  c:=hs-90/99;
  i:=hs/c/120+2/4*hl-72;
  Label4.Caption:=IntToStr(i)+'%';
end;

end.

Thanks!

procedure TForm1.DoMath;
var
  hl, hs, i: Integer;
  c, e: Extended;
begin
  hs := StrToInt(Form1.Edit2);
  hl := StrToInt(Form1.Edit1);
  c := hs - 90 / 99;
  e := hs / c / 120 + 2 / 4 * hl - 72;
  i := Round(e);
  Label4.Caption := IntToStr(i) + '%';
end;

(You sure you know what you're doing? =/)

From: Freddy1990

procedure TForm1.DoMath;
var
  hl, hs, i: Integer;
  c, e: Extended;
begin
  hs := StrToInt(Form1.Edit2);
  hl := StrToInt(Form1.Edit1);
  c := hs - 90 / 99;
  e := hs / c / 120 + 2 / 4 * hl - 72;
  i := Round(e);
  Label4.Caption := IntToStr(i) + '%';
end;

Thanks.

From: Freddy1990

(You sure you know what you're doing? =/)

Nope, no idea ;)

EDIT: Ok, after trying your procedure, i got this error:

[Error] Unit1.pas(37): Incompatible types: 'String' and 'TEdit'

and this error:

[Error] Unit1.pas(38): Incompatible types: 'String' and 'TEdit'

.

  hs := StrToInt(Form1.Edit2.Text);
  hl := StrToInt(Form1.Edit1.Text);

Ah, missed that, didn't really bother to open my IDE to test it anyway :p

From: Kevin Wolf

  hs := StrToInt(Form1.Edit2.Text);
  hl := StrToInt(Form1.Edit1.Text);

Thanks Nashi!

Haha How'd you know xP

Oh my siggy XD

From: Kevin Wolf
Haha How'd you know xP

Oh my siggy XD

Not really your siggy. It's just on MoparIsTheBest, i saw your name had a SCAR Scripter tag next to it, and i was wondering why you aren't on SRL. So i searched and found the your members application, then you posted that Nashi was you and you liked that name better.

So i thought you'd like to be called that instead :)

Yes I would, XD
I don't like Kevin Wolf =[
I want NASHI T_T

http://www.villavu.com/forum/showthread.php?t=17786

Try that if you haven't already, they might not change it.

I have =/

From: Kevin Wolf
I have =/

Then SPAM the thread mate.

Nah, I don't want to annoy them

From: Kevin Wolf
Nah, I don't want to annoy them

It's fun, try it. What ever you spam they'll do to your biddings.