Eddy
05-04-2003, 05:16
chào các chú,các cô,các bác,...
Hiện tại cháu đang tự học delphi bằng cách viết một chương trình nhưng lại gặp phải mấy vấn đề sau.Mong được chỉ giáo.
+Thứ nhất: chương trình dùng đối tượng DrawGrid (DGr),2 ô texteditbox (ted) và có đoạn mã sau:
1: var sodong,socot : ?
2: sodong:=tedsodong.text;
3: socot:=tedsocot.text;
4: inc(sodong);inc(socot); //hay sodong:=sodong+1...
5: Dgr.Rowcount:=sodong;
6: Dgr.Colcount:=socot;
Theo các chú thi 2 biến sodong và socot nên là biến kiểu gì và cách đổi kiểu làm sao, chứ cháu thử đủ kiểu và các hàm chuyển kiểu vẫn bị báo lỗi như:
integer và hàm strtoint thì dòng 2 và 3 báo lỗi;
integer và hàm val thì cột[0] bị mất, tuy vẫn có thể sửa được nhưng lại gây ra nhiều lỗi khác trong các đoạn mã còn lại.
variant thi dòng 4,5,6 báo lỗi.
+Thứ hai:Làm cách nào để xuất mỗi ô một ký tự trên dòng[0] và cột[0] của khung lưới DrawGrid.
cháu đã dùng thử đoạn mã sau mà vẫn không được
var khung:TRect;
i:integer;
for i:=1 to 16 do
begin
khung:=dgrmattran.CellRect(i,0);//:=inttostr(i);
dgrmattran.Canvas.TextRect khung,khung.Left ,khung.Top ,chuoi[i]);
khung:=dgrmattran.CellRect(0,i);
dgrmattran.Canvas.TextRect (khung,khung.Left ,khung.Top ,inttostr(i));
end;
Ráng giúp lẹ lẹ nha mấy chú.Cám ơn trước.
Hiện tại cháu đang tự học delphi bằng cách viết một chương trình nhưng lại gặp phải mấy vấn đề sau.Mong được chỉ giáo.
+Thứ nhất: chương trình dùng đối tượng DrawGrid (DGr),2 ô texteditbox (ted) và có đoạn mã sau:
1: var sodong,socot : ?
2: sodong:=tedsodong.text;
3: socot:=tedsocot.text;
4: inc(sodong);inc(socot); //hay sodong:=sodong+1...
5: Dgr.Rowcount:=sodong;
6: Dgr.Colcount:=socot;
Theo các chú thi 2 biến sodong và socot nên là biến kiểu gì và cách đổi kiểu làm sao, chứ cháu thử đủ kiểu và các hàm chuyển kiểu vẫn bị báo lỗi như:
integer và hàm strtoint thì dòng 2 và 3 báo lỗi;
integer và hàm val thì cột[0] bị mất, tuy vẫn có thể sửa được nhưng lại gây ra nhiều lỗi khác trong các đoạn mã còn lại.
variant thi dòng 4,5,6 báo lỗi.
+Thứ hai:Làm cách nào để xuất mỗi ô một ký tự trên dòng[0] và cột[0] của khung lưới DrawGrid.
cháu đã dùng thử đoạn mã sau mà vẫn không được
var khung:TRect;
i:integer;
for i:=1 to 16 do
begin
khung:=dgrmattran.CellRect(i,0);//:=inttostr(i);
dgrmattran.Canvas.TextRect khung,khung.Left ,khung.Top ,chuoi[i]);
khung:=dgrmattran.CellRect(0,i);
dgrmattran.Canvas.TextRect (khung,khung.Left ,khung.Top ,inttostr(i));
end;
Ráng giúp lẹ lẹ nha mấy chú.Cám ơn trước.