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 findwindow的一些用法

Delphi dos批命令打开应用程序同时关闭dos窗口本身

postmessage和sendmessage的区别

Delphi 多核机器上编程实现将指定进程pid放到指定cpu上运行

Delphi 创建圆形或椭圆形窗体

Delphi idhttp最简洁的修改和取得cookie例子

Delphi real控件 rm格式的播放器

Delphi idhttp 获取链接连通状态

Delphi 直接调用记事本（notepad）打开文本文件

Delphi 大小排序算法代码

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

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