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;

procedure TForm1.Button1Click(Sender: TObject);

var

leftstr:String;

str1:String;

begin

str1:='123456793 NAME_5 84 94 178 AAA';

ExtractString(str1,leftstr);

Memo1.Text:=leftstr;

end;

推荐分享