テキストファイルの読み込みについて！ (ID:15604)

名前

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

本文

> 改行入りテキストを扱えるようなStringListコンポーネントを作成するのも面白いかもしれませんね。

ちと欲しかったので、作ってみました。
Delphi 5 の TStringList.SetTextStr 及び、SetCommaText を参考にしています。

TStringListEx	=class(TStringList)
  protected
    procedure SetTextStr(const aValue: String); override;
  end;

implementation

procedure TStringListEx.SetTextStr(const aValue: String);
var
  pChrs, rowStart: PChar;
  rowString: String;
  breakChar: Boolean;
begin
  {更新開始}
  BeginUpdate;
  try
    Clear;
    pChrs := Pointer(aValue);
    if pChrs <> nil then  begin
      while pChrs^ <> #0 do begin
	{行開始}
	rowStart := pChrs;
	breakChar := not (pChrs^ in [#0, #$0A, #$0D]);
	while breakChar do begin
	  if pChrs^ = '"' then begin
	    {引用符付き文字列を引用符なし文字列に変換して取得(pChrsのアドレスを進める)}
	    AnsiExtractQuotedStr(pChrs, '"');
	  end
	  else begin
	    Inc(pChrs);
	  end;
	  breakChar := not (pChrs^ in [#0, #$0A, #$0D]);
	end;
	SetString(rowString, rowStart, pChrs - rowStart);
	{追加}
	Add(rowString);
	if pChrs^ = #$0D then Inc(pChrs);
	if pChrs^ = #$0A then Inc(pChrs);
      end;
    end;
  finally
    {更新終了}
    EndUpdate;
  end;
end;

こんなトコかな？

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

戻る