返信

> CSV を表示するプラグインを Delphi XE2 開発中ですが、判らない事があるので教えて下さい。 > > 以下の関数を作成して、プラグインから指定した行を取得してみました。 > > １回目の「Editor_GetLine」で、文字数を取得して、2回目の「Editor_GetLine」で文字列を取得できました。 > この方法であってますでしょうか？ > > 「TGetLineInfo」の「flags」と「byteCrLf」の使い方が判らなかったので、0 を指定して取得しています。 > 「flags」と「byteCrLf」の使用方法を教えてください。 > > function TFormCsvList.GetLine(Index: Integer; var LineString: String; Sender: TObject): Integer; > var > iLen1: Integer; > iMax1: Integer; > iRow1: Integer; > pGetLineInfo1: TGetLineInfo; > pGetLineInfo2: TGetLineInfo; > Buffer1: array [0..LINE_LENGTH_MAX+1] of WideChar; > Buffer2: array [0..LINE_LENGTH_MAX+1] of WideChar; > begin > //１回目でサイズを取得 > pGetLineInfo1.cch := 0; // 0 を設定すると、バッファサイズを返す > pGetLineInfo1.flags := 0; // 不明 > pGetLineInfo1.yLine := Index; // 0 ベースの行番号を渡す > pGetLineInfo1.byteCrLf := 0; // 不明 > //取得 > iLen1 := Editor_GetLine(Application.Handle, @pGetLineInfo1, @Buffer1); > //最大文字数を設定 > if iLen1 > LINE_LENGTH_MAX then > begin > iMax1 := LINE_LENGTH_MAX; > end > else > begin > iMax1 := iLen1; > end; > > //２回目で文字列を取得 > pGetLineInfo2.cch := iMax1; // 0 を設定すると、バッファサイズを返す > pGetLineInfo2.flags := 0; // 不明 > pGetLineInfo2.yLine := Index; // 0 ベースの行番号を渡す > pGetLineInfo2.byteCrLf := 0; // 不明 > //取得 > Editor_GetLine(Application.Handle, @pGetLineInfo2, @Buffer2); > > //結果 > LineString := ''; > for iRow1 := 0 to iMax1-1 do > begin > LineString := LineString + String(Buffer2[iRow1]); > end; > //結果 > Result := iLen1; > end; > > よろしくお願いします。

マークダウンを有効にする