var f: TFileStream;
s: PChar;
begin
f := TFileStream.Create(路径+文件名,fmCreate);
s := 'yzfcat_fish (猫鱼) ';
f.Write(s^,Length(s));
FreeAndNil(f);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
s: PChar;
begin
f := TFileStream.Create(路径+文件名,fmCreate);
s := 'yzfcat_fish (猫鱼) ';
f.Write(s^,Length(s));
FreeAndNil(f);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 报表合并行的问题
- 关于checkListBox的问题……
- 如何用代码创建一个 array of const
- Report Machine 如何修改BarCode的宽度???
- 请教高人,如何动态的改变TChart的图表类型?(在线等)
- 如何将string转换成TComponent,在线守候!!!
- ToolBar1上的ToolButton1 我已经用导入ImageList1的图片,现在我想在ToolButton1?????
- SQL查询过程的显示问题
- clientdateset控件是什么?怎样用的?(如题)
- 如何在windows me下安装windows 2000专业版?
- 在panel上放置media player
- 请问怎么把数据显示在一个ComboBox控件中
如果路径不存在,你要用function CreateDir(const Dir: string): Boolean;来创建目录的