Delphi，在文本文件中搜索

所以，我在表单上有edit1和edit2+按钮 当我在edit1中输入一些数字时，在点击按钮后，它将在指定的文本文件中搜索12345，如果找到，则读取分隔符后的字符串或所有行，并将其输入edit2

守则：

procedure TForm1.Button1Click(Sender: TObject);  var   sl : TStringList;   ix : Integer;

begin   sl := TStringList.Create;   try
    sl.LoadFromFile('C:\Polozky.txt');
    ix := sl.IndexOf(Edit1.Text);
    //d := SL.ValueFromIndex[IX];
    if ix > -1 then ShowMessage('OK')  Else ShowMessage('NOTHING');   finally
    sl.Free;   end; end;

你好,， 是的，我的文件是逗号分隔的

12345,CAR
12233,BUS

。。。。。

---

我想查找12345 adn put CAR IN edit2。

tStringList。值将搜索格式为
Name=Value
的字符串。
如果要使用不同的分隔符，如逗号，请设置
namevaluesparator
。
下面的代码显示消息“BUS”

var
  SL : tStringList;
begin
  SL := tStringList . Create;

  SL . Add ( '12345,CAR' );
  SL . Add ( '12233,BUS' );

  SL . NameValueSeparator := ',';

  ShowMessage ( SL . Values [ '12233' ] );
end;

您应该先阅读一些Delphi教程，最好是旧的（因为Delphi7很旧）。你试过用谷歌搜索什么吗？是的，但我没有找到TGAT的回复。你知道怎么做吗？你知道如何阅读文本文件吗？你知道如何搜索字符串中的文本吗？你知道如何调试吗？目前，没有人能以一种有用的方式回答这个问题。是的，我知道如何打开和读取文件，我知道如何在edit1中查找字符串，但在这之后，我不知道如何在查找字符串后设置文本并将其放入edit2。
edit2.text:=SomeText