字符操作

Question

假如一个文件中有如下内容
name=john
address=newyork
sex=1如果只取等号右边的内容有什么办法
john
newyork
1

Answer 1

如果是ini文件，直接可以读
inifile.Readstring('','name','');
inifile.Readstring('','address','');
....

Answer 2

把它读入到一个TStringList里面，看如下代码：
var
  tmpStr,Str: String;
  i: integer;
begin
  List.LoadFormFile('c:\test.txt');
  for i:= 0 to List.Count-1 do
  begin  
    tmpStr := List.Strings[i];
    Str := Copy(Pos('=',tmpStr)+1,Lenght(tmpStr)); //这就是=后面的值了
  end;
end;

Answer 3

GARNETT2183(KingWolves (http://kevin-lu.blogspot.com))
已经给了答案。
Str := Copy(Pos('=',tmpStr)+1,Lenght(tmpStr)); //这就是=后面的值了Str := Copy(1,Pos('=',tmpStr)－1); //这就是=前面的值了

Answer 4

用memo.lines中，其实就是TStringList，这样做直观一点，可以加深你的理解
 memo1.lines.loadfromfile('c:\aa.txt');//读取数据
 Memo1.Lines.Delimiter := '=';//设置分割符号
  Memo1.Lines.DelimitedText := memo1.text;
然后可以在memo中可以发现数据已经分开了，按照你的格式，换局话说，你的奇数行就是前面的，偶数行就是等号后面的信息。