Question

所以，我在表单上有edit1和edit2 +按钮当我把一些数字写入edit1时，在button_clik之后它将在指定的文本文件中搜索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并将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，在文本文件中搜索

1 个答案: