{变量A=1}
{变量B=666}
{变量C=}
{变量D=AAA}
{变量E=R}
{变量F=47}
{变量G=R}
{变量H=14}
上面这种是什么文件格式,如何将变量A到变量H 的值读出来,谢谢
{变量B=666}
{变量C=}
{变量D=AAA}
{变量E=R}
{变量F=47}
{变量G=R}
{变量H=14}
上面这种是什么文件格式,如何将变量A到变量H 的值读出来,谢谢
解决方案 »
- 也是请教时间的问题
- 用TSaveDialog控件得到选择的保存的路径,为什么在XP下saveDialog.FileName是没有值或是一两个符号什么的,怎么得啊
- 电脑终于中毒,求助.
- 问在上海和深圳的朋友?
- 大家能否帮我分析一份协议
- Delphi 怎样将数值型空值附给Edit
- 如何能够将自己DELPHI水平再提高一个档次!!(进来讨论的都有分)
- 为什么进行Table删除后无法Post?
- 怎么象vb一样指定窗口的位置?
- Delphi不支持office2000吗????需要什么设置呢??
- 求助dbgrid OnColEnter事件
- 请问delphi的Tools/Enviroment Options/Library下的Library Path和Browsing Path和Project/Options下的SearchPath各有什么作用以及它们的
sl1,sl2: TStrings;sl1 := TStringList.Creat;
sl2 := TStringList.Creat;
sl1.LoadFromFile('c:\1.txt');
for i := 0 to sl1.Count - 1 do
sl2.Add(Copy(sl1.String[i],2,Length(sl1.String[i]) - 2));
用CStdioFile一行一行读出来,呵呵楼上是delphi的
比如也可能是这样:{变量A=1
}
{变量B=666}
{变量C=}
{变量D=AAA}
{变量E=R}
{变量F=47}
{变量G=R}
{变量H=14}
var
iBegin,iEnd:integer;
begin
if (pos(strBegin,strSource)*pos(strEnd,strSource)=0) then
result:='';
iBegin:=pos(strBegin,strSource);
iEnd:=pos(strEnd,strSource); result:=trim(copy(strSource,iBegin+1,iEnd-iBegin-1));
result:=StringReplace(result,' ','',[rfReplaceAll]);
end;procedure TForm1.Button1Click(Sender: TObject);
var
strTemp:string;
begin
Memo1.Lines.LoadFromFile('1.txt');
strTemp:=Memo1.Lines.Text;
while (pos('{',strTemp)>0) do
begin
Memo2.Lines.Add(GetStrBetweenL(strTemp,'{','}'));
///////////每次 GetStrBetweenL返回的都是一行,然后就能够得到你想要的值了。
///////////每行都是 变量*=***
strTemp:=copy(strTemp,pos('}',strTemp)+1,Length(strTemp));
end;
end;