delphi 处理字符串分割

最新推荐文章于 2025-06-03 16:55:06 发布

键盘侠007

最新推荐文章于 2025-06-03 16:55:06 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

文章标签：数学建模

本文链接：https://blog.csdn.net/qq_29072049/article/details/130826118

该段代码主要涉及Delphi编程，处理用户输入的小时数检查，从Ini文件中读取数据，以及对字符串列表的操作。它检查小时数是否小于24，从Ini文件中读取特定标签，然后搜索字符串并进行位置检查。如果找到匹配项，程序执行后续操作，否则显示错误消息。代码还展示了如何分割和遍历由特定分隔符组成的字符串列表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TfrmPutin.BitBtn1Click(Sender: TObject);
var
  fini: Tinifile;
  s: string;
  MyStr, SubStr: string;
  myStringList: TStringList;
  i: Integer;
  Result: Boolean;
  OutPutList: TStringList;
  constr, str, str1, str2, str3, str4: string;
  strs: TStrings;
begin
  OutPutList := TStringList.Create;
  Result := false;
  try
    if strtoint(edthour.Text) < 24 then
    begin
      MessageBoxEx(LanI.GT('input24hInteger'));
      edthour.SetFocus;
    end;
  except
    MessageBoxEx(LanI.GT('input24hInteger'));
    edthour.SetFocus;
  end;
  fini := tinifile.Create(ExtractFilePath(ParamStr(0)) + '\blood.ini');
  s := fini.ReadString('TYPECODE', 'LABEL', 'XCR');
  if Length(edtSpid.Text) > 0 then
  begin
    writeWorkLog(edtSpid.Text);
    writeWorkLog(s);
    SubStr := edtSpid.Text;
    MyStr := s;
    constr := s;
    strs := TStringList.Create;
    strs.Delimiter := ',';
    strs.DelimitedText := constr;
    for i := 0 to strs.Count - 1 do
    begin
       if Pos(SubStr, strs[i]) > 0 then
      begin
        Result := True;
        Exit;
      end;
    end;
    if Result then
      chkspid
    else
      MessageBoxEx(LanI.GT('pleaseBottles'));
    exit;
  end;
end;

strs := TStringList.Create;
strs.Delimiter := ‘,’;
strs.DelimitedText := constr;
for i := 0 to strs.Count - 1 do
这一块是处理字符串的打印就是数组了

procedure TForm1.btn1Click(Sender: TObject);
var

constr,str,str1,str2,str3,str4:string;
strs :TStrings;
i:Integer;
begin
constr:=‘1-2-3’;
strs := TStringList.Create;
strs.Delimiter := ‘-’;
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;

end.