Delphi 提取字符串左侧内容

本文整理自网络，侵删。

 
  procedure ExtractString(var Scores, LeftValue: String);
  var
    i: Integer;
  begin
    // 提取左侧内容
    i := Pos(#9, Scores); //#9表示tab键
    if (i > 0) then
    begin
      LeftValue := Copy(Scores, 1, i - 1);
      Delete(Scores, 1, i);
    end else
    begin
      LeftValue := Scores;
      Scores := '';
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
leftstr:String;
str1:String;
begin
str1:='123456793NAME_58494178AAA';
ExtractString(str1,leftstr);
Memo1.Text:=leftstr;

end;
 

相关阅读 >>

Delphi 清空文件夹

Delphi opendialog使用方法

Delphi 列出所有可视窗口

Delphi 使用openjdk进行Delphi android开发

Delphi 在tunimemo中复制和粘贴选定的文本

Delphi isdirectory 判断是否是目录

Delphi 调用golang dll

Delphi xe 无法编译apk提示sdk路径问题时？sdk路径配置方法

Delphi 内存加载并运行exe程序

Delphi shellexecute openurl 的跨平台实现

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 提取字符串左侧内容