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 dbgrid 表格自适应宽度

Delphi real控件 rm格式的播放器

Delphi 实现从下载链接提取文件名的函数

Delphi sysutils.strcopy、sysutils.strecopy

Delphi access 从数据库里随机选择一行

Delphi的combobox不能输入只能选择

Delphi下spcomm串口编程

Delphi写的服务程序在服务管理器中显示“描述”

Delphi 多种编码转换

Delphi webbrowser控件里编辑网页

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

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