1、你要代码就麻烦了
2、
var s: TStrings;
begin
s := TStringList.Create;
s.LoadFromFile('C:\windows\name.txt');
form1.label1.caption := s.Strings[0];
FreeAndNil(s);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
2、
var s: TStrings;
begin
s := TStringList.Create;
s.LoadFromFile('C:\windows\name.txt');
form1.label1.caption := s.Strings[0];
FreeAndNil(s);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
2. 当按下bittun1时form2.edit1,edit2,edit3,edit4,的内容分别符给
form1.StringGrid1.Cells[1,0]
form1.StringGrid1.Cells[2,0]
form1.StringGrid1.Cells[3,0]
form1.StringGrid1.Cells[4,0],并想保存这次输入的记录(不想用到数据库),也就是说下次打开这个界面时可以看到上一次输入的记录﹔请问各位大侠,这段代码该怎幺写?请写出代码!急… 不胜感激!!!
另外感谢: lxpbuaa(桂枝香在故国晚秋) .... ^_^
你提到用INI文件来保存现场!请问怎幺写这段代码?请指点!谢谢!
procedure PrintGrid(sGrid: TStringGrid; sTitle: String);
var
X1, X2 : Integer;
Y1, Y2 : Integer;
TmpI : Integer;
F : Integer;
TR : TRect;
begin
Printer.Title:=sTitle;
Printer.BeginDoc;
Printer.Canvas.Pen.Color:=0;
Printer.Canvas.Font.Name:='Times New Roman';
Printer.Canvas.Font.Size:=12;
Printer.Canvas.Font.Style:=[fsBold, fsUnderline];
Printer.Canvas.TextOut(0, 100, Printer.Title);
For F:=1 to sGrid.ColCount-1 do begin
X1:=0;
For TmpI:=1 to (F-1) do
X1:=X1+5*(sGrid.ColWidths[TmpI]);
Y1:=300;
X2:=0;
For TmpI:=1 to F do
X2:=X2+5*(sGrid.ColWidths[TmpI]);
Y2:=450;
TR:=Rect(X1, Y1, X2-30, Y2);
Printer.Canvas.Font.Style:=[fsBold];
Printer.Canvas.Font.Size:=7;
Printer.Canvas.TextRect(TR, X1+50, 350, sGrid.Cells[F, 0]);
Printer.Canvas.Font.Style:=[];
For TmpI:=1 to sGrid.RowCount-1 do begin
Y1:=150*TmpI+300;
Y2:=150*(TmpI+1)+300;
TR:=Rect(X1, Y1, X2-30, Y2);
Printer.Canvas.TextRect(TR, X1+50, Y1+50, sGrid.Cells[F, TmpI]);
end;
end;
Printer.EndDoc;
end;
2. . 当按下bittun1时form2.edit1,edit2,edit3,edit4,的内容分别符给
form1.StringGrid1.Cells[1,0]
form1.StringGrid1.Cells[2,0]
form1.StringGrid1.Cells[3,0]
form1.StringGrid1.Cells[4,0],并想保存这次输入的记录(不想用到数据库),也就是说下次打开这个界面时可以看到上一次输入的记录﹔请问各位大侠,这段代码该怎幺写?请写出代码!急… 不胜感激!!! --------可以用INI文件保存,不过要怎幺写这段代码? 十万火急…… TKS!!!