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

[解决办法]
遍历查找
[解决办法]
Input # 语句


从已打开的顺序文件中读出数据并将数据指定给变量。

语法

Input #filenumber, varlist

Input # 语句的语法具有以下几个部分：

部分 描述
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 # 语句可以确保将各个单独的数据域正确分隔开。

[解决办法]
TStringList.LoadFromFile加载文件然后一行行找吧

[解决办法]
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;

[解决办法]
TStringList加载遍历
[解决办法]
顶楼上的
[解决办法]
用A定位行，取出行，SplitString？
[解决办法]
我在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
//readonlyRewrite 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;