[Serega]

Спасибо recop, я уже разобрался (методом, научного тыка)...
Вопрос в следующем, как сделать невозможным выбор родительского компонента в TreeView, т.е.

Код:

-Родительский компонент
   |
  -Дочерний компонент

т.е. при выборе "Родительского компонента", всегда выбирался "Дочерний компонент"...

[crown.81]

Код:

procedure TForm1.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
if(TreeView.Selected.Parent=nil)then TreeView.Select(TreeView.Selected.GetNext);
end;

видимо так

[Serega]

crown.81, спасибо!

Ещё вопрос:
Есть поле Edit, хочу привязать к нему ComboBox, т.е. предлагаю пользователю ввести размер файла в поле Edit, а в ComboBox можно выбрать МБ, КБ и Байты. Допустим пользователь вводит размер файла равным 1 МБ, а затем меняет в ComboBox выбор с МБ на КБ. Как определить изменение ComboBox с МБ на КБ и обратно, т.е при выборе в ComboBox=МБ в поле Edit=1, при смене выбора в ComboBox=КБ в поле Edit производится пересчёт на 1024 и так далее?

[Drongo]

Serega_, Не знаю как в Делфи, но в Borland C++ есть обработчик ComboBox, называется - OnSelect. Если я правильно понял идею, то приблизительно так должно быть, по аналогии и названиям компонентов ты поймёшь:

Это сырой код, и только для примера

Код:

// Метод OnSelect в ComboBox'e
void __fastcall TForm1::ComboBox1Select(TObject *Sender)
{
    // текст ComboBox присвается строковой переменной
    String s1 = ComboBox1->Text;

    if(s1 == "КБ"){ // Если строка равна значению "КБ"
      Label1->Caption = String("1024 ") + s1;
      Edit1->Text = "1024";
     }
    else if(s1 == "МБ"){ // Если строка равна значению "МБ"
      Label1->Caption = String("1 ") + s1;
      Edit1->Text = "1";
     }
}

[shynar]

помоготе плз, использую делфи 7

Код:

function shifr(buf1, buf2: String): String;
  var
   kzu: string[32];
  begin
  asm
                xor bx, bx
                mov cx, 32
@cycle1:  mov al, buf2[bx]  ; здесь пишет о несоответствии размера
               mov kzu[bx], al    ; и здесь 
               inc bx
               loop @cycle1
  end;
  end;

Использовала вместо al, ax, eax ошибка остаётся, как сделать лучше?Буду благодарна за ответ.

[DillerInc]

shynar

Код:

asm
...
  xor ebx, ebx
  mov ecx, 32
  mov al, byte ptr buf2[ebx]
  mov byte ptr kzu[ebx], al
  inc ebx
...
end;

[shynar]

Спасибо вроде получилось, но в связи с этим появился ещё вопрос, хотела изменить немного функцию- облом! Объясните почему так и почему , со стороны теории, надо использовать 32 регистры вместо 16 ... или книжку посоветуйте

Код:

 function shifr(buf1, buf2, kzu: String): String;
begin
        asm
; как вы посоветовали
.....
        end;
end;

[ALI]

Вопрос по TComboBoxEx. Подскажите, пожалуйста, как можно изменить цвет заливки изображения при выборе какого-либо из пунктов? А то та заливка, которая по умолчанию закрашивает рисунок, меня совсем не устраивает: возникает какое-то странное мерцание, от которого рябит в глазах. Дело в том, что размеры изображений в ImageList довольно большие, поэтому эта рябь при выборе какого-либо из пунктов портит все впечатление.
И второй вопрос в догонку. Я хочу, чтобы в одном из TComboBoxEx не было текста. Вообще и в принципе. То есть свойство Caption я оставляю пустым у всех Items'ов, а свойство Indent выбираю ТАКИМ ОБРАЗОМ, чтобы картинка стояла ровнехонько посередине. Но! Опять же, при выборе одного из Item'ов на том месте, где должен распологаться текст, а у меня зияет пустота, появляется узкая вертикальная полоса того самого пресловутого рябящего цвета.
Как решить эти 2 проблемы?

[DillerInc]

Объясните почему так »

...потому что операционная система в наше время бывает либо 32-битная,либо 64-битная.Поэтому использование 16-битных регистров без конкретной необходимости не имеет смысла.

То,что вы сейчас спрашиваете - это ассемблер - к Дельфям имеет мало отношения.Но с другой стороны,ассемблер - это основа программирования,поэтому постараюсь немного объяснить.
Если вы обращаетесь в массиву данных,то вы должны точно указать с каким размером данных (типом данных) вы сейчас работаете.Вообще есть только три основных типа данных: байт,слово и двойное слово(1 байт,2 байта и 4 байта соответственно).В данной функции вы работаете байтами,поэтому обращение к массиву нужно выделить с помощью byte ptr, т.е. byte pointer.Если бы вы хотели доставать из массива по четыре байта за раз,то вы бы написали:

Код:

mov eax, dword ptr buf2[ebx]
mov dword ptr kzu[ebx], eax

Что-то вроде того.По ассемблеру из книг обычно советуют Юрова,несмотря на то,что он далеко не идеален.

[verdix]

Здравствуйте.
Ввожу с клавиатуры два значения, нужно что бы они в цикле вбивались в массив. Конечный результат должен быть такой :
_______
i,j
i,j
i,j
i,j
i,j
_______

BEGIN writeln('Введите10 катетов'); for i:=1 to 2 do for j:=1 to 5 do begin readln(k1,k2); k[ end; END.