文字列操作について (ID:18180)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

正規表現ユニット使ってもいいですが、Delphiで書くならこんな漢字。

//1
function getText1(SubStr,Str:string):string;
var i:integer;
begin
for i:= Length(Str)-Length(SubStr) downto 1 do
begin
  if Copy(Str,i,Length(SubStr))=SubStr then
  begin
    Result:=Copy(Str,i+Length(SubStr),Length(Str));
    exit;
  end;
  Result:='';
end;
end;
//日本語サポート版
function getText1W(SubStr,Str:Widestring):WideString;
var i:integer;
begin
for i:= Length(Str)-Length(SubStr) downto 1 do
begin
  if Copy(Str,i,Length(SubStr))=SubStr then
  begin
    Result:=Copy(Str,i+Length(SubStr),Length(Str));
    exit;
  end;
  Result:='';
end;
end;
//2
function getText2(SubStr,Str:string):string;
var i:integer;
begin
for i:= Length(Str)-Length(SubStr) downto 1 do
begin
  if Copy(Str,i,Length(SubStr))=SubStr then
  begin
    Result:=Copy(Str,1,i-1);
    exit;
  end;
  Result:='';
end;
end;
//日本語サポート版
function getText2W(SubStr,Str:string):string;
var i:integer;
begin
for i:= Length(Str)-Length(SubStr) downto 1 do
begin
  if Copy(Str,i,Length(SubStr))=SubStr then
  begin
    Result:=Copy(Str,1,i-1);
    exit;
  end;
  Result:='';
end;
end;

//サンプル
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=getText1('a','abcdafff');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Caption:=getText2('c','abcdafff');
end;

←解決時は質問者本人がここをチェックしてください。

戻る