stringlistでのテキストファイル処理について (ID:44455)

名前

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

本文

先程の関数を少し書きなおししました。
よろしければ参考にどうぞ。

procedure CharReplace(var aSrcStr:string; const aOldChar,aNewChar:Char);
var
  aPChar: PChar;
  i,aLen: Integer;
begin
  aLen := Length(aSrcStr);
  if aLen=0 then Exit;
  aPChar := @aSrcStr[1];
  for i := 1 to aLen-1 do
  begin
    if aPChar^ = aOldChar then
      aPChar^ := aNewChar;
    inc(aPChar);
  end;
  if aPChar^ = aOldChar then
    aPChar^ := aNewChar;
end;

procedure CharReplaceS(var aSrcStr:string; const aOldChar,aNewChar:Char);
var
  i,aLen: Integer;
begin
  aLen := Length(aSrcStr);
  if aLen=0 then Exit;
  for i := 1 to aLen do
  begin
    if aSrcStr[i] = aOldChar then
      aSrcStr[i] := aNewChar;
  end;
end;

function CharRemove(const aSrcStr:string; const aOldChar:Char):string;
var
  aPSrc,aPDst: PChar;
  i,c,aLen: Integer;
begin
  aLen := Length(aSrcStr);
  SetLength(Result,aLen);
  if aLen=0 then Exit;
  aPSrc := @aSrcStr[1];
  aPDst := @Result[1];
  c := 0;
  for i := 1 to aLen-1 do
  begin
    if aPSrc^ <> aOldChar then
    begin
      aPDst^ := aPSrc^;
      inc(aPDst);
      inc(c);
    end;
    inc(aPSrc);
  end;
  if aPSrc^ <> aOldChar then
    inc(c);
  SetLength(Result,c);
end;

function CharRemoveS(const aSrcStr:string; const aOldChar:Char):string;
var
  i,c,aLen: Integer;
begin
  aLen := Length(aSrcStr);
  SetLength(Result,aLen);
  if aLen=0 then Exit;
  c := 0;
  for i := 1 to aLen do
  begin
    if aSrcStr[i] <> aOldChar then
    begin
      c := c+1;
      Result[c] := aSrcStr[i];
    end;
  end;
  SetLength(Result,c);
end;

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

戻る