صابر طهماسبی
سه شنبه 07 اردیبهشت 1389, 21:37 عصر
سلام
چند ساعته دارم با این کد ور می رم دیگه دیوانه شدم تقاضای عاجزانه دارم کمک کنید!:عصبانی++:
کد کلاس:
type
MyClass=class
cur:integer;
arr:array of char;
procedure add(c:char);
constructor Create; overload;
end;
constructor MyClass.Create();
begin
self.cur:=0;
SetLength(self.arr,self.cur+1);
end;
procedure MyClass.add(c: Char);
begin
self.arr[self.cur]:=c;
self.cur:=self.cur+1;
SetLength(self.arr,self.cur);
end;
کد تست :
procedure TForm1.test_btnClick(Sender: TObject);
var
obj:MyClass;
begin
obj.add('a');
end;
یه کلید به اسم test دارم که تا روش کلیک می کنی برنامه خطا می ده واین هم تصویر خطا:
چند ساعته دارم با این کد ور می رم دیگه دیوانه شدم تقاضای عاجزانه دارم کمک کنید!:عصبانی++:
کد کلاس:
type
MyClass=class
cur:integer;
arr:array of char;
procedure add(c:char);
constructor Create; overload;
end;
constructor MyClass.Create();
begin
self.cur:=0;
SetLength(self.arr,self.cur+1);
end;
procedure MyClass.add(c: Char);
begin
self.arr[self.cur]:=c;
self.cur:=self.cur+1;
SetLength(self.arr,self.cur);
end;
کد تست :
procedure TForm1.test_btnClick(Sender: TObject);
var
obj:MyClass;
begin
obj.add('a');
end;
یه کلید به اسم test دارم که تا روش کلیک می کنی برنامه خطا می ده واین هم تصویر خطا: