T断点窗口.ComboBox2Change(Sender: TObject);
var
sFile: TStrings;
r: Integer;
matchs: TMatchCollection;
match: TMatch;
a1: string;
begin
CheckListBox1.Items.Clear;
sFile := TStringList.Create;
sFile.LoadFromFile(ExtractFilePath(Application.Exename) + '\Data\全.txt');
for r := 0 to sFile.Count - 1 do
begin
if TRegEx.IsMatch(sFile[r], '^' + IntToStr(combobox2.ItemIndex) + '\..+\)$') then
begin
matchs := TRegEx.Matches(sFile[r], '\..+\)$');
for match in matchs do
begin
// a1 := delete(match.Value, 1, 1); =======> 我想加一句这个,把 上面引用部分,每行前面的 点去掉 结果报错了。
CheckListBox1.Items.Add(match.Value + #13#10);
end;
end
end;
deletefile(ExtractFilePath(Application.Exename) + '\Data\2.txt');
sFile.Free;
end;