有一个文本文件,如下形式:
a 1 e
b 2 f
c 3 g
d 4 h
e 5 i
如何实现其按行滚动显示在stringgrid中,一个cells中显示一个数。谢谢啦
a 1 e
b 2 f
c 3 g
d 4 h
e 5 i
如何实现其按行滚动显示在stringgrid中,一个cells中显示一个数。谢谢啦
解决方案 »
- (急)在程序中分析Html中代码,如何见区位码字符串如何转换成为正常字符??
- 在c/s客户端取服务器上音频文件播放的问题,请有这方面设计经验的兄弟指点一下!!(项目中!)
- 一个DELPHI接连SQLSERVER的问题请教
- 菜鸟问问题:请问下接口到底是怎么回事呢?
- 通过TcharAxis.GetCursorValues可以得到当前鼠标下的x,y值,怎么通过x得到相应的Series的值?
- 帮忙UP也送分!CORBA三层开发中,如何将smart agent (osagent)绑定呢?
- 大家这么使用过COM吗?原来COM可以这么使用的!
- 大侠救命!!!(有源码)
- 关于 CreateThread好奇怪的问题哦
- 那里有"ADOExpress Update Pack 1"给40分
- 岁月催人老,bill gates老了
- 好久没来 真的好久没来了
Windows, SysUtils, Classes, Controls, Forms,
StdCtrls, ExtCtrls, Grids;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
var r:integer;
sl:array[0..2]of TStringList;
StringGrid1:TStringGrid;
Timer1: TTimer;procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
Height:=320;
Width:=420;
Position:=poScreenCenter;
OnCloseQuery:=FormCloseQuery;
for i:=0 to 2 do
sl[i]:=TStringList.Create;
for i:=0 to 4 do begin
sl[0].Append(char(i+ord('a')));
sl[1].Append(char(i+ord('1')));
sl[2].Append(char(i+ord('e')));
end;
for i:=5 to 7 do begin
sl[0].Append('');
sl[1].Append('');
sl[2].Append('');
end;
StringGrid1:=TStringGrid.Create(self);
with StringGrid1 do begin
RowCount:=8;
Parent:=Form1;
Width:=338;
Height:=210;
FixedCols:=0;
FixedRows:=0;
Left:=40;
Top:=30;
end;
Timer1:=TTimer.Create(self);
Timer1.OnTimer:=Timer1Timer;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var i,x:integer;
begin
for i:=0 to 7 do begin
x:=(r+i)mod 8;
StringGrid1.Cells[1,i]:=sl[0][x];
StringGrid1.Cells[2,i]:=sl[1][x];
StringGrid1.Cells[3,i]:=sl[2][x];
end;
//滚上:
inc(r);
{
//滚下:
r:=r+8;
dec(r);
}
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var i:integer;
begin
Timer1.Enabled:=false;
Timer1.Free;
StringGrid1.Free;
for i:=0 to 2 do sl[i].Free;
end;end.