var f1:textfile;
s1:string;
asignfile(f1,'c:\ip.txt');
reset(f1);
readln(f1,s1);
s1即为ip 的值
s1:string;
asignfile(f1,'c:\ip.txt');
reset(f1);
readln(f1,s1);
s1即为ip 的值
解决方案 »
- delphi的cxgrid如何像pagecontrol一样多面板显示
- 一开源exe资源监测工具,如何使其编译成功
- 求!除了Registry和KOL修改注册表 的另外一种修改注册表方法。
- 100分:delphi 如何判断一个网站能否正常打开
- 使用CreateOleObject调用COM,关闭子窗口时,父窗口被一起关闭,是否资源释放问题?!
- 关于汉字编码的问题
- 有谁知道QQ样式的菜单原名叫什么???
- 我想问个简单的问题!
- ******我在安装了一个下载的组件以后,delphi工程无法正常运行******,高分求解!!
- 密码验证的唯一性,请教高手,先谢了!
- 在Delphi中怎么把字符转换成Ascii码?
- 一个很菜的问题。。。。
with Tinifile.create('ipaddress.ini') do
begin
writestring('application','ipaddress','127.0.0.1');
end;
var
F: TextFile; {F为你所创建的文本文件}
S: string; {S为你所要的IP地址字符串}
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Readln(F, S); { Read first line of file }
Edit1.Text := S; { Put string in a TEdit control }
CloseFile(F);
end;
end;