VPF::Символ "=" в TValueListEditor - Форум программистов

Burich-Caeser

Дата 2.10.2005, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1

Не получается поместить его в левый столбей. Все, что после него переносится в правую часть, а он сам не виден. Кто знает, в чем дело, помогите, пожалуйста.

--------------------

Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...

Zero

Дата 2.10.2005, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Burich @ 2.10.2005, 20:19)

Кто знает, в чем дело, помогите, пожалуйста.

Я знаю, ошибка в 17 строке, надо исправить...

p0s0l

Дата 2.10.2005, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Burich-Caeser, TValueListEditor хранит строки в виде "Ключ=Значение", поэтому очевидно, что Ключ не может содержать знак равенства...

--------------------

С уважением, г-н Посол.

Burich-Caeser

Дата 3.10.2005, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1

Цитата(Zero @ 2.10.2005, 22:01)

Я знаю, ошибка в 17 строке, надо исправить...

Можно подробней?

p0s0l Да, это я знаю, просто туеву хучу кода написал через этот компонент, а тут бяка обнаружилась... Может все-таки можно, как в html, чтобы записано одно, а отображалось другое...

--------------------

Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...

p0s0l

Дата 3.10.2005, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата(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")

--------------------

С уважением, г-н Посол.

Burich-Caeser

Дата 4.10.2005, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1

p0s0l Спасибище!!! Я пока до такого сам доходить не умею smile

Правда, встает вопрос со знаком %. Но у меня идет обработка с именами файлов и папок, поэтому символ изменил на "*". Все работает. Спасибищ!!!

Это сообщение отредактировал(а) Burich-Caeser - 5.10.2005, 18:58

--------------------

Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »