Witam wszystkich!
Jako, że dopiero zaczynam swoją przygodę z programowaniem problem który uniemożliwia mi dalsze pisanie jest pewnie dla większości z Was banalny, jednak właśnie dlatego publikuje go w tym dziale.
Podczas próby kompilacji niżej zamieszczonego kodu w środowisku firmy Borland - Delphi 7 wyskakuje mi błąd zawarty w tytule - 'n' is not a type identifier.
Kod:
unit XYZ;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
ListBox1: TListBox;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
procedure Edit1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c,n: integer;
h,m,s,ms: word;
start,stop: TDateTime;
implementation
{$R *.dfm}
procedure TForm1.Edit1Click(Sender: TObject);
begin
TEdit(Sender).Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
n:=StrToInt(Edit1.text);
except
on EConvertError do
showmessage ('xyz');
on n<5 do
showmessage ('abc');
end;
[...]
Dodam, że w linijce "on n<5 do" próbowałem różnych kombinacji (n:<5 , n:=<5 , StrToInt(Edit1.text)<5 , n:=StrToInt(Edit1.text)<5).
Liczę na wyrozumiałość gdyż jako napisałem wcześniej jestem kompletnym laikiem.
Z gory dziękuję za odpowiedź i pozdrawiam.