Intege.....men text

MyFunction(StrToInt(Edit1.Text);

Snowball

myfunction(StrToInt(Edit1.Text));

/ZIRON

Men hvis det altid er en streng du vil sende, så laver du bare funktionen om så den hedder:

function TForm1.MyFunction(X1 : String): String;

Snowball

Under forudsætning af at du kun har tal stående i din Edit1.text kan du sende på flg. måde:
function MyFunction(StrToInt(Edit1.Text));

hmmm hvorfor skal nettet være så langsomt :)

/ZIRON

Hov mangler lige en )

MyFunction(StrToInt(Edit1.Text));

Snowball

har jeg prøvet jeg får denne fejl

[Error] Unit1.pas(60): File type not allowed here
[Error] Unit4.pas(32): Types of actual and formal var parameters must be identical

ziron: Er det nu jeg skal sige det du plejer at sige til mig !? ;)

Snowball

Så må mit forslag være det mest korrekte :-)

delphimann: Hvis du ændrer din funktion, så skal du huske at ændre den begge steder. Altså både i toppen hvor du erklærer den, og der hvor du skriver selve funktionen !

Snowball

hmmm tror jeg ikke :)

function TForm1.MyFunction(X1 : Integer): Integer;
begin
  Form4.ShowModal;
  ShowMessage(X1);
end;


myfunction(StrToInt(Edit1.Text));

/ZIRON

jep sender lig det hele her...

public
    function TForm1.MyFunction(X1 : String): String;
end;


function TForm1.MyFunction(X1 : text): text;
begin
  Form4.ShowModal;
  ShowMessage(X1);
end;


myfunction(StrToInt(Edit1.Text));

og det giver denne fejl

[Error] Unit1.pas(60): \',\' or \':\' expected but \'.\' found
[Error] Unit1.pas(60): \',\' or \':\' expected but \'(\' found
[Error] Unit1.pas(60): \';\' expected but \':\' found
[Error] Unit4.pas(32): Undeclared identifier: \'myfunction\'

public
    function MyFunction(X1 : String): String;
end;

function TForm1.MyFunction(X1 : String): String;
begin
  Form4.ShowModal;
  ShowMessage(X1);
end;

myfunction(StrToInt(Edit1.Text));


Så burde det virke !

Snowball

er du stiv snowball ingen strtoint :)

/ZIRON

Hov ! Du har jo lavet funktionen om så den altid er en string, så derfor skal du ikke ha\' StrToInt med !

Nedenstående virker !

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.MyFunction(X1 : String): String;
begin
//  Form4.ShowModal;
  ShowMessage(X1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  myfunction(Edit1.Text);
end;

end.

Snowball

jep nu siger den bare

[Error] Unit4.pas(32): Incompatible types: \'String\' and \'Integer\'

ziron: Det er tid til frokost, så jeg tænkte lige på noget andet ! *GG*

Snowball

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.MyFunction(X1 : Integer): Integer;
begin
  Form4.ShowModal;
  ShowMessage(IntToSTr(X1));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyFunction(StrToInt(Edit1.Text));
end;

end.


/ZIRON

delphimann: Min fejl, sorry. Der skal bare stå myfunction(Edit1.Text); når du kalder din funktion !

Snowball

så nu vriker det

det er bare iorden snow så vil jeg også til at holde pause og mit det er bedst det er med en integer :)

/ZIRON

delphiman> text er IKKE en type - brug i stedet String (som foreslået)

5 point til Ziro og 10 til Snowball.... ok ?!

hmmm okay :)

/ZIRON

ziron: Han har jo ikke skrevet noget om om han altid vil benytte en Integer eller String. Jeg lavede mit eksempel om til en ren String da han selv havde prøvet på det, og derfor gik jeg så udfra at det var det han ville ha\' !

Snowball

det var også bare for fun. og jeg ville også selv have lavet det med en string da det er lettes, men når han nu selv startede med en integer :)

/ZIRON