盒子论坛 v2.1

有什么好的办法吗??
都是数值,能不能判一下让输入的字符让不足多少位加.000或空格

还想请教一个问题能不能在StringGrid里面输入的内容能象在MaskEdit那样格式化一下所输入的内容,如:第几位是数字,第几位是字符,

或者这样说你教我一个最简单的在StringGrid里面只能输入数字而且不能超过多少位.是不是要判断输入的键值,
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/13 10:48:07

7楼：

偶试了一下直接输入就判断非常难的！

至于说：1）不足多少位加.000或空格
2）输入的内容能象在MaskEdit那样格式化一下所输入的内容
可以在 EDIT中或MASKEDIT中实现！

偶的算法是很简单但编译器无法实现！

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    sg1: TStringGrid;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure sg1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: String);
    procedure sg1SetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: String);
    procedure sg1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tts1:string;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
i:LOngint;

begin
  sg1.RowCount :=4;
  sg1.Colcount:=4;
  sg1.FixedCols :=1;
  sg1.FixedRows :=1;
  sg1.Cells[1,1]:='00001234';//全部8位或。。。更多就可以对起！
  sg1.Cells[2,1]:='00012345';
  sg1.Cells[3,1]:='00123456';

  sg1.Cells[1,2]:='00123456';
  sg1.Cells[2,2]:='00012345';
  sg1.Cells[3,2]:='00000123';

  sg1.Cells[1,3]:='00000001';
  sg1.Cells[2,3]:='00000001';
  sg1.Cells[3,3]:='00452354';


end;

procedure TForm1.Button1Click(Sender: TObject);//打印
var
i,j:Longint;
path,s1,s2,sall:string;
sl:TStringList;
begin
sl:=TStringList.Create ;
path:=extractfilepath(application.ExeName )+'test.txt';
if fileexists(path) then deletefile(path);
sall:=';
  for i:=1 to sg1.RowCount -1 do
   begin//2
      for j:=1 to sg1.colCount -1 do
        begin//1
           sall:=sall+sg1.Cells[j,i]+stringofchar(' ',10);//换行回车
        end;//1
     sall:=sall+#13#10;//换行回车
   end;//2
  sl.Clear ;
  sl.Add(sall);
  sl.SaveToFile(path);
end;

procedure TForm1.sg1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: String);
var
m1,m2:Longint;
s1,s2:string;
begin
{
s1:=value;
m1:=length(s1);
if m1<8 then
  begin
   m2:=8-m1;
   value:=stringofchar('0',m2)+value;
  end;
}
end;

procedure TForm1.sg1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: String);
var
m1,m2:Longint;
s1,s2:string;
begin
tts1:=tts1+sg1.Cells [acol,arow];
m1:=length(s1);
if m1>=8 then
  begin
    m2:=m1-8;
    s2:=copy(s1,m2+1,m1);
    sg1.Cells [acol,arow]:= ';
    sg1.Cells [acol,arow]:=s2;
    exit;
  end;
if m1<8 then
  begin
   m2:=8-m1;
   s2:=stringofchar('0',m2)+sg1.Cells [acol,arow];
   sg1.Cells [acol,arow]:=s2;
  end;
end;

procedure TForm1.sg1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
tts1:=';
end;

end.

----------------------------------------------

作者：

jsnjsmc (鱼)	★☆☆☆☆	-
	盒子活跃会员

2004/1/13 13:45:41

8楼：

谢谢你，问题基本全部解决了。
----------------------------------------------
-

作者：

jsnjsmc (鱼)	★☆☆☆☆	-
	盒子活跃会员

2004/1/13 14:18:48

9楼：

我是这样写的，你再帮我看一下：

procedure TfrmLocale.Button2Click(Sender: TObject);
var
  i,J,K:Integer;
  strLine,strcell:string;
  fileHandle:THandle;
  fileName:textfile;
  filestr:string;
begin
  filestr:='c:\test.txt';
  if fileExists(filestr)=false then
    begin
      fileHandle:=FileCreate(filestr);
      fileClose(FileHandle);
    end;

  assignFile(FileName,Filestr);
  Rewrite(fileName);
  for K:=1 to stringGrid1.RowCount - 1 do
    begin
      strLine:=';
      for I:=1 to stringGrid1.ColCount -1 do
        begin
          strcell :=stringGrid1.Cells[i,K];
          for J:=length(strcell) to 8 do
            strcell :=strcell + ' ';
          strLine :=strLine + strcell;//stringGrid1.Cells[i,1];
        end;
      writeLn(fileName,strLine);
    end;
  closeFile(FileName);
end;
----------------------------------------------
-

作者：

jsnjsmc (鱼)	★☆☆☆☆	-
	盒子活跃会员

2004/1/13 14:19:40

10楼：

procedure TfrmLocale.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (ord(key) <48) or (ord(key)>57) then
    begin
      showmessage('error');
      key:=chr(0);
    end;
end;
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/13 15:19:12

11楼：

好的！
----------------------------------------------

信息

登陆以后才能回复