Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
pit23



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ArtemiyUO
 

Цитата:
Devexpress DBComboBox

 
Что это за вещь. Забыл сказать: Я использую Delphi6.

Всего записей: 60 | Зарегистр. 04-03-2006 | Отправлено: 11:51 14-09-2006
RedPromo



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NewbieCnt
Попробовать угадать.
Есть алгоритм, тоесть строится матрица для разных кодировок если код символа для кодовой стрницы является символом тогда возможно ты угадал, можно просматривать несколько символов для болие лучшего угадывания.

Всего записей: 559 | Зарегистр. 05-04-2006 | Отправлено: 11:54 14-09-2006
NewbieCnt

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А стандартных функций разве нету?  
Жаль.. Как тогда страничку загружать незнаю.

Всего записей: 15 | Зарегистр. 01-09-2006 | Отправлено: 12:23 14-09-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
NewbieCnt

Цитата:
Жаль.. Как тогда страничку загружать незнаю.

А куда Вы собрались ее загружать?
У ТWebBrowser'а я не помню проблем с определением кодировки.  


----------
При изучении наук примеры полезнее правил. ©Исаак Ньютон

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 12:40 14-09-2006
wader



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NewbieCnt
Стандартных нет
 
А как связаны загрузка страницы и кодировка этой страницы?
 
здесь очень подробно все расписано, наслаждайся
hxxp://www.mozilla.org/projects/intl/UniversalCharsetDetection.html

Всего записей: 113 | Зарегистр. 26-05-2005 | Отправлено: 12:44 14-09-2006 | Исправлено: wader, 12:47 14-09-2006
ArtemiyUO

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pit23
DevExpress это мегонабор контролов для Дельфи и билдера
http://devexpress.com/Products/VCL/Index.xml
Мего возможности. Платные.

Всего записей: 539 | Зарегистр. 12-12-2005 | Отправлено: 14:56 14-09-2006
xitsmex



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Итак, есть вопросы по стандартным багам VCL и их решениям. Покопался в инете - не отыскал.
1. Описание: TScrollBox, контрол внутри него. Некорректное скроллирование при переходе фокуса на внутренний контрол TScrollBox`a.
Детали: Если в TScrollBox есть большой контрол, прокручиваем его куда хотим (фокус на него не ставим, только полосками прокрутки!). Затем ставим фокус на внутренний контрол (кликаем по нему) - ScrollBox прокрутится к самому началу.
Пример: На фому TScrollBox, в него - TStringGrid БЕЗ собственных полос прокрутки, но по размеру больше, чем TScrollBox. Еще на форму TEdit - для масовки. Кликаем в Edit, прокручиваем полосы в ScrollBox в правый нижний угол, кликаем на угловой ячейке - вуаля, ScrollBox прокручивается на (0,0) и выделяет на часть таблицы.
2. Описание: TListView продолжает процесс выделения, если был exception (messagebox) после события WM_LBUTTON_DOWN.
Детали: Если при нажатии левой кнопкой мыши из-за потери фокуса другим контролом нпоявится message box (например, вследствие exception), то после закрытия messagebox будет наблюдаться выделение в ListView.
Пример: На форму TListView с MultiSelect = true и Edit (снова масовка), у Edit:
procedure TfmDemo.Edit1Exit(Sender: TObject);
begin
  if TEdit(Sender).Text = '1' then
    raise Exception.Create('!!!');
end;
Вводим в Edit '1', нажимаем на ListView - exception. Жмем Ok - вуаля, в ListView бегают полосы выделения.

Всего записей: 58 | Зарегистр. 31-08-2005 | Отправлено: 12:03 16-09-2006
YuRRiX

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Кто нить писал проги для WM PPC под Delphi?
вроде нашел статью ( http://bdn.borland.com/article/33507 ) но вопросы она до конца не сняла, ибо часть софта скачать не получается...

Всего записей: 31 | Зарегистр. 07-02-2006 | Отправлено: 12:37 16-09-2006 | Исправлено: YuRRiX, 12:38 16-09-2006
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
компонент ComboBox1 есть у него свойство items в нем хранятся строки
как сделать что бы определенной строке из этого компонета присваивалось определенное цифровое значение 01, 02 итд

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 13:16 16-09-2006
afiget



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
Копай в сторону TStrings.Objects
 
Добавлено:
Ну или альтернативные компонеты (например, DevExpress)

Всего записей: 545 | Зарегистр. 31-12-2005 | Отправлено: 13:31 16-09-2006
Vetal303



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GTA3
если имеется ввиду обратится к конкретному итемсу и сменить ему отображаемое название:
ComboBox1.Items[i]:='01'
где i - порядковый номер итемса, счет ведётся с нулевого.  
 
Если я понял вопрос неправильно - перефразируйте!
 
Добавлено:
GTA3
Видишь твой вопрос можно понять далеко неоднозначно!
 
ЗЫ Учимся задавать вопросы

----------
При изучении наук примеры полезнее правил. ©Исаак Ньютон

Всего записей: 498 | Зарегистр. 05-07-2004 | Отправлено: 13:35 16-09-2006
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vetal303
имеется ввиду вот что
 
в итемсе есть строки:
   Пример
Москва
астрахань
рязань
 
надо как то присвоить нумерацию этим городам так:
Москва 01
астрахань 02
Рязань 03...
 
так что бы когда я выбирал москву в компонете ComboBox1 город
в компоненте "мемо" вставлялся не сам город а его номер

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 13:46 16-09-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
. . .
ComboBox1.Items.AddObject('Москва', TObject(01));
ComboBox1.Items.AddObject('Астрахань', TObject(02));
ComboBox1.Items.AddObject('Рязань', TObject(03));
. . .
 
В обработчике OnClick для TComboBox1:
Memo1.Lines.Text := Format('%d', [Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])]);

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 13:51 16-09-2006
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ramazan
нет так не получается какой бы город не выбирал в компоненте мемо выходит ноль

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 14:09 16-09-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
Странно, только что проверил в Delphi 7 - работает.
Текст модуля
Форма

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 14:24 16-09-2006
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ramazan
извиняюсь выходит не ноль а цифры
1
2
3
без нуля (01) надо что бы снулем
 
и еще в компоненте ComboBox1 каждый раз прибавляются города

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 14:25 16-09-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
А если так:
var
  Value: Integer;
. . .
  Value := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  if Value < 10 then  
    Memo.Lines.Text := '0' + IntToStr(Value)
  else
    Memo.Lines.Text := IntToStr(Value);
   
Список городов можно хранить, скажем в ini-файле, тогда можно будет выводить номера городов в произвольном виде (как задашь в файле).

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 14:41 16-09-2006
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ComboBox1: TComboBox;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ComboBox1Change(Sender: TObject);
 
var
  Value: Integer;  
begin
  Value := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);  
  if Value < 10 then
    Memo1.Lines.Text := '0' + IntToStr(Value)
  else
    Memo1.Lines.Text := IntToStr(Value);
end;
 
end.
 
 
Добавлено:
нет так не идет выходит  00
 
 
Добавлено:
Ramazan
нет так тоже не идет выходит 00

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 15:40 16-09-2006
MoonFox

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
ComboBox1.Items.AddObject('Москва', TObject(01));
ComboBox1.Items.AddObject('Астрахань', TObject(02));
ComboBox1.Items.AddObject('Рязань', TObject(03));
. . .
 
В обработчике OnClick для TComboBox1:
Memo1.Lines.Text := Format('%d', [Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])]);

Ведь писал же Ramazan, только аргумент в функции Format заменить на '%0.2d'.
Если строки в TStrings вставлять в дизайн-тайме или через метод Add, а не AddObject, то, естественно, все связанные Objects будут равны nil (0 при приведении к целому).
Поэтому в коде примера, который
Цитата:
нет так тоже не идет выходит 00
, надо добавить метод OnCreate на форму, а в нем заполнить ComboBox методом, который указал выше Ramazan.
 

Всего записей: 11 | Зарегистр. 24-08-2006 | Отправлено: 16:02 16-09-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3

Цитата:
Value := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);  
  if Value < 10 then
    Memo1.Lines.Text := '0' + IntToStr(Value)
  else
    Memo1.Lines.Text := IntToStr(Value);  

Этот код должен быть в обработчике OnClick, а не OnChange. Кроме того, нет кода, заполняющего ComboBox1 - см. мой пример, метод FormCreate

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 16:07 16-09-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru