Delphi, 在文本文件中搜索

Question

所以，我在表单上有 edit1 和 edit2 + 按钮当我将一些数字放入 edit1 时，在 button_clik 之后它将在指定的文本文件中搜索 12345，如果找到，则读取定界符后的字符串或所有行并将其 pu 到 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 并将 CAR 放入 edit2。

Answer 1

tStringList.Values 将搜索 Name=Value 形式的字符串。如果要使用不同的分隔符，例如逗号，请设置 NameValueSeparator。下面的代码显示消息 'BUS'。

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

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

  SL . NameValueSeparator := ',';

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

Delphi, 在文本文件中搜索

Delphi, search in text file

delphi

delphi-7