高难表格算法,给点意见也行呀 (50分)

  • 主题发起人 向你学习
  • 开始时间

向你学习

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟想实现在一个表格中有十个字,
但当把这个表格分成若干个时(<5)
怎样把表格中的字分别在这几个表格中,
而且要均匀谢谢
用ASP
 
我现在下班了!晚上给你答复!
 
分的时候什么规则?随机的还是怎么/
 
做的是一个机房平面图分为列和行,主要是放机架的
添加和删除是动态的,
当添加一个设备时就多一个表格字就要均匀放在这两个表格中,
再添加时还得均匀放在这三个表格里

谢谢大家
 
procedure tform1.drawtext(s:string;rect:trect);
var i:integer;
sep:real;
offrect:integer;
begin
sep:=(rect.Right -rect.Left)/length(s);
canvas.FillRect(rect);
for i:=1 to length(s) do
begin
canvas.TextOut(rect.left+ round((i-1)*sep),rect.top+5,s);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:trect;
begin
s:=rect(100,100,200,200);
drawtext('iloveyou',s);
end;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部