Sin, Cos, Tan

uses
  Math.

Brug functionerne :
Sin
Cos
Tan

Jens B

Borrisholt> hvordan bruger man dem?
Har prøvet med:
Sin(edit1.text);
Men det virker ik.

showmessage(floattostr(sin(strtofloat(edit1.text)));

ikke testet

var
  e : Extended;
begin
  e := floatToStr(Edit1.Text);
  e := sin(e);
  Edit2.Text := FloatToStr(e);
end;

Heller ikke testet.

Jens B

borrisholt: [Error] Main.pas(311): Illegal character in input file: ' ' ($A0)

Det melder den! :(

det ligner jo nok lidt meget at der er en space char i editen

uses
  Math;
procedure TForm1.FormCreate(Sender: TObject);
var
  e : Extended;
begin
  e := StrToFloat(Edit1.Text);
  e := sin(e);
  Edit2.Text := FloatToStr(e);
end;

borrisholt> Still the same error :(

OKI

Jeg har lige tested det på min computer !

Og der virker det.

Du må kun indtaste tal i dit editfelt ingen mellemrum, bogstaver eller ligende !!! KUN Tal !

Jens B

Jeg kan ikke compile programmet, den melder jo fejlen, derfor har jeg jo ikke tastet noget endnu.!

Fair nok !!

Så har du en fejl i din kode. Mit kode virker fint. Det er testet, og det kan compilere!

Jens B

Prøv at cut and paste i stedet for at taste.
Sæt to Edit komponenter og en Button:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
  e : Extended;
begin
  e := StrToFloat(Edit1.Text);
  e := sin(e);
  Edit2.Text := FloatToStr(e);
end;

end.

Jeg har gjort præcis som i har sagt jeg skulle gøre. Startet et nyt Application, lagt 2 Edit'er og en Button på min form, og skrive i OnClick proceduren for Button1:

procedure TForm1.Button1Click(Sender: TObject);
var
  e : Extended;
begin
  e := StrToFloat(Edit1.Text);
  e := sin(e);
  Edit2.Text := FloatToStr(e);
end;

Har også lagt math i uses, men stadig:
[Error] Unit1.pas(30): Illegal character in input file: ' ' ($A0)
Hvad er der galt?

The compiler found a character that is illegal in Delphi programs.

This error message is caused most often by errors with string constants or comments.

program Produce;

begin
  Writeln("Hello world!");  (*<-- Error messages here*)
end.

Here a programmer fell back to C++ habits and quoted a string with double quotes.

program Solve;

begin
  Writeln('Hello world!');  (*Need single quotes in Delphi*)
end.

The solution is to use single quotes. In general, you need to delete the illegal character.

Hvis det er grader du skal tage sinus til, så kan du bruge funktionen degtorad(); Som vist på eksemplet nedenunder:
  Edit2.Text := FloatToStr(sin(degtorad(StrToFloat(Edit1.Text))));

fandt en dejlig Parser som klarede alle 3 ting :)
århh hvor er jeg glad for den ;)

Kunne desværre ikke få jeres kode til at virke, dunno hvorfor, for den burde virke.
Så jeg lukker.