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;
 

相关阅读 >>

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

Delphi 利用Delphi监视注册表的变化

Delphi webbrowser控件的事件

Delphi实现进制转化（2进制，8进制，10进制，16进制）

Delphi 对txt文件的操作

webbrowser自动填表模板

Delphi xe ioutils tpath(结构体) 的方法与属性

Delphi android 启动卡死处理方法

Delphi中窗体的方法

Delphi 详解 enumwindows 与 enumwindowsproc

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

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