.TXT文件的读取问题

Question

TXT文件内容为
A  1
B  2
C  3
已知A如何取出A后面对应的值？
PS：不要用ReadString做，这个需要在A跟1之间加等号，麻烦。

Answer 1

Input # 语句
      从已打开的顺序文件中读出数据并将数据指定给变量。语法Input #filenumber, varlistInput # 语句的语法具有以下几个部分：部分 描述 
filenumber 必要。任何有效的文件号。 
varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些变量不可能是一个数组或对象变量。但是，可以使用变量描述数组元素或用户定义类型的元素。 
说明通常用 Write # 将 Input # 语句读出的数据写入文件。该语句只能用于以 Input 或 Binary 方式打开的文件。在读出数据时不经修改就可直接将标准的字符串或数值数据指定给变量。下表说明如何处理其它输入数据：数据 指定给变量的值 
分隔逗号或空白行 Empty 
#NULL# Null 
#TRUE# or #FALSE# True 或 False 
#yyyy-mm-dd hh:mm:ss# 用表达式表示的日期与/或时间 
#ERROR errornumber# errornumber（此变量是一个 Variant，用来标记错误） 
输入数据中的双引号符号 (" ") 将被忽略。文件中数据项目的顺序必须与 varlist 中变量的顺序相同，而且与相同数据类型的变量匹配。如果变量为数值类型而数据不是数值类型，则指定变量的值为零。在输入数据项目时，如果已到达文件结尾，则会终止输入，并产生一个错误。注意 为了能够用 Input # 语句将文件的数据正确读入到变量中，在将数据写入文件时，要使用 Write # 语句而不使用 Print # 语句。使用 Write # 语句可以确保将各个单独的数据域正确分隔开。

Answer 2

TStringList.LoadFromFile加载文件然后一行行找吧

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  vList: TStringList;
begin
  vList := TStringList.Create;
  try
    vList.LoadFromFile('c:\a.txt');
    vList.NameValueSeparator := ' ';
    showmessage(vList.Values['A']);
  finally
    vList.Free;
  end;
end;

Answer 4

用A定位行，取出行，SplitString？

Answer 5

我在Form上添加了一个button创建txt并写入数据  最后读出来  有点乱  楼主hold住哦procedure TForm1.Button1Click(Sender: TObject);
var
  myfile : textfile;
  s: string;
begin
  assignfile(myfile, 'e:\123.txt'); //怴寶涹懪?暥審
  rewrite(myfile); //new and open
                           //暥杮暥審惀readonly揑丆巊梡Rewrite 榓Append 懪?揑暥杮暥審扅擻幨擖
  reset(myfile);
  readln(myfile,s);
  ShowMessage(s); //show txt揑撪梕
  //writeln(myfile, 'aaaaaaaaaaaaaaa'); //write to the txt
  closefile(myfile); //close the txt
  ShowMessage('succeed');end;