没有直接录入的表格 ( 积分: 50 )

  • 主题发起人 主题发起人 xiaoshou
  • 开始时间 开始时间
X

xiaoshou

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi有没有直接录入的表格,不需要连接数据库的,就是直接可以进行编辑的,因为这些数据是死的,不会有变化的,因为表格太多,而且是数据是死的,不会更改的。如果要用dbgrid 等控件,需要连接数据库。这样表太多了!不合理而且繁琐啊!
例如
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
用表格画起来,只需要在设计时就写入,也永远不会改变,只是做一些说明。
 
stringgrid,ListView,TreeView,一大堆,stringgrid不能在设计期做。
不知道楼主要做什么,这些数据不需要保存起来吗?难到每次都重新录入?
 
数据不需要存放到数据库中吗?如果不需要,可以采用StringGrid+excel方式,或用FB1Book,或干脆直接用excel
 
表格的话stringgrid蛮不错的,不过只是显示看,而且设计期要能看到,我觉的label都行,呵呵,下面是我写的小示例,可以保存,也可以读取。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
aStream: TStream;
begin
Label1.Caption:= '1 2 3 4 5'+#$A#$D
+'6 7 8 9 10';
aStream:= TMemoryStream.Create;
aStream.WriteComponent(Label1);
TMemoryStream(aStream).SaveToFile('a.txt');
aStream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
aStream: TStream;
begin
aStream:= TMemoryStream.Create;
TMemoryStream(aStream).LoadFromFile('a.txt');
aStream.ReadComponent(Label1);
aStream.Free;
end;

end.
 
后退
顶部