Den 26-09-03 21:01 skrev Kasper M. Jacobsen følgende:
-----------------------------------------------------------------------------
Hej! jeg er lige begyndt på Delphi 6 og har nogle problemer...
jeg har en Edit box, en Label og en knap.... Jeg ville godt have
at man skulle indtaste et nummer også ville den sige om det var for lidt eller for meget...
men jeg kan ikke få det til at virke!
-----------------------------------------------------------------------------
hmm ja, fandt så også lige en fejl i min kode, men her får du bare hele unit'en
Du skal smide en knap og en editboks på formen og dobbeltklikke på knappen og indsætte følgende kode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
procedure check(const intIndtastet, intMinimum, intMaximum: integer);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.check(const intIndtastet, intMinimum,
intMaximum: integer);
begin
if intIndtastet < intMinimum then
showmessage('For lille et tal!')
else if intIndtastet > intMaximum then
showmessage('For stort et tal!')
else
showmessage('Det passer!')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
check(strtoint(edit1.text), 20, 30);
end;
end.