如何调用txt内容

Question

例如我写了一个语句 If Edit1.Text = 'A' Then Label1.Caption := 'B' .
而A和B的对应关系我写在一个TXT档里了 A:='123'  B:='456'   最终要达到的效果就是在Edit1.Text 中输入123，则Label1.Caption 就显示456

Answer 1

txt应该用int文件表示，用int文件完成你的要求最好了。

Answer 2

ini格式一般是
A=123
B=456
用ReadString读

Answer 3

Function  TLoginForm.Get_IP : String;
var
  Ini : TIniFile ;
  Exe_Name : String;
  FileName : String;
begin
  Exe_Name :=  ExtractFileName(Application.ExeName);
  FileName := ExtractFilePath(Application.ExeName)+'client.ini';
  ini := TiniFile.Create(FileName);
  Try
    result := Ini.ReadString('TCP','LoginIp','');
  Finally
    ini.free;
  End ;
end;

Answer 4

http://blog.csdn.net/bdmh/archive/2009/05/04/4147104.aspx

Answer 5

谢谢各位。感觉用ini不太方便，所以还是用txt要怎么写？

Answer 6

文本里面就直接TstringList了,将文本导入
stringList.LoadFromFile('.\1.txt');
然后在Edit1.Text 中输入123，就去stringList去逐行去找对应的就行了(copy,pos来提取字符)。

Answer 7

用TStringList
用LoadFromFile读入txt文件，
Edit1.Text=StringList1.Value['A']
Label1.Caption:=StringList1.Value['B']
txt内容
A=123 
B=456

Answer 8

用文本文件吧，假设
A='123' 时 B='456'
A='111' 时 B='222'则文本文件里面的数据就为
123|456
111|222代码如下：procedure TForm1.Button2Click(Sender: TObject);
var
  sFile,sLine: TStrings;
  i: Integer;
begin
  sFile := TStringList.Create;
  sLine := TStringList.Create;
  try
    sFile.LoadFromFile('c:\1.txt');
    sLine.Delimiter := '|';
    for i := 0 to sFile.Count - 1 do begin
      sLine.DelimitedText := sFile.Strings[i];
      if sLine.Strings[0] = Edit1.Text then begin
        Label1.Caption := sLine.Strings[1];
        Break;
      end;
    end;
  finally
    sFile.Free;
    sLine.Free;
  end;
end;

Answer 9

procedure TForm1.Edit1Change(Sender: TObject);
var A,B :string;
begin
       A:='123';
       B:='456';
     if edit1.Text=A then label1.Caption:=b;
end;end.

Answer 10

用INI还不方便的话，那发明INI的目的是什么？？？？？？？？？？？？？？？？？？