如何在xx.TXT文件中查找指定的字符串并返回需要的内容？
现有xx.txt文件 edit1和edit2
如何在xx.TXT文件中查找指定的字符串并返回需要的内容？

例如：xx.TXT内容如下：
A0001,ABCDEF02,33333
At002,dfaDEF05,55555
A0f03,AafDEF07,99999
A0r04,ABCDEF01,66666
A0d05,ABCDEF09,44444
A0w06,ABCDEF08,11111
...

当edit1中输入A0d05需要在edit2中显示44444
要怎么写代码？


[解决办法]
Function GetString(Str: String): String;
Var
AList: TStrings;
i, L: Integer;
S, S1: String;
begin
Result := '';
AList := TStringList.Create;
try
AList.LoadFromFile('路径'+xxx.Txt);
For i := 0 To AList.Count - 1 Do
begin
L := Pos(',', AList[i]);
S := Copy(AList[i], 1, L - 1);
If S = Str Then
begin
S1 := Copy(AList[i], L + 1, Length(AList[i]));
Result := Copy(S1, Pos(',', S1) + 1, Length(S1));
Break;
End;
End;
finally
AList.Free;
End;
End;

procedure buttonClick（Sender：TObject）;
begin
Edit2.text := GetString(Edit1.TExt)；
end;

供参考。