| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
[新規作成] [最新の情報に更新]
|
|
|
|
|
|
Delphi Tips
0033 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成： 1999/02/08 osamu rev 1.1 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新： 1999/02/08 osamu 編集
Delphi3 の TStringList.CommaText の不具合
個々のアイテムが空白などを含む場合にのみダブルクオートで括るはずが、必要の無いときまでダブルクオートが使われる。
[対応策]
class.pas の 2253 行目から４行だけ示します。"" で包む必要があるなら
包む処理をする部分です。
S := Get(I);
P := PChar(S);
while not (P^ in [#0..' ','"',',']) do P := CharNext(P);
if (P <> #0) then S := AnsiQuotedStr(S, '"');
// ^^ ここ正しくは P^ 。
// ポインタと文字を比べるんじゃなーい！！
参照： [Delphi-ML:8468] <文字列> <バグ> <PASCAL>
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home