| Цитата(Burich @ 3.10.2005, 18:54) | | Может все-таки можно, как в html, чтобы записано одно, а отображалось другое... |
Можно. Как-нибудь в таком духе:
| Код | procedure TForm1.ValueListEditor1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s : string;
p : integer;
begin // DefaultDrawing д.б. = True
if (ARow <= 0) or (ACol > 0) then Exit;
with Sender as TValueListEditor do
begin
s := vle1.Cells[ACol, ARow];
repeat
p := Pos('%', s);
if p = 0 then Break;
s[p] := Char(StrToInt('$'+Copy(s, p+1, 2)));
Delete (s, p+1, 2);
until False;
Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, s);
end;
end;
|
(в этом примере в левом столбце TValueListEditor'а все комбинации %xx заменяются при выводе на соответствующие символы, где xx - шестнадцатиричный код символа; например: "key%3D1" выведется как "key=1") |
