Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 24 из 116<  1 ... 21  22  23  24  25  26  27 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Lord_of_Darkness
Нифига не работает. Пишет Incompatible types. Код такой:
Код:
Procedure KolodaSwich(Koloda: array of string);
var
  Value,i,j: byte;
  temp: string;
begin
Value:= High(Koloda);

for i:=1 to Value do
    begin
    if Koloda[i]='0' then
        begin
        temp:= Koloda[i+1];
        Koloda[i+1]:='0';
        Koloda[i]:=temp;
        end;
    end;

SetLength(Koloda,Value-1);

end;

Вот и не пойму почему не работает....

_________________
Лучшая зашита - это нападение.



Партнер
 

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
Ray Adams сенкс. разбор строки я уж сделал. а можно сделать то же, что ты написал, но только: сначала ищется первое слово. А потом уже идет отсеивание...

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
SardoX Так дольше будет, лучше сразу одним запросом.


 

Member
Статус: Не в сети
Регистрация: 17.09.2004
Halfback писал(а):
Lord_of_Darkness
Нифига не работает. Пишет Incompatible types. Код такой:
Код:
Procedure KolodaSwich(Koloda: array of string);
var
  Value,i,j: byte;
  temp: string;
begin
Value:= High(Koloda);

for i:=1 to Value do
    begin
    if Koloda[i]='0' then
        begin
        temp:= Koloda[i+1];
        Koloda[i+1]:='0';
        Koloda[i]:=temp;
        end;
    end;

SetLength(Koloda,Value-1);

end;

Вот и не пойму почему не работает....


Не знаю, где у тебя Incopatible types, но вот переполнение диапазона у тебя в цикле уж точно. Насколько видно из примера Value берётся как самое верхнее значение размерности массива. А в теле цикла ты ещё используешь ссылки как [i+1]. И что по-твоему будет на последней итерации?

Второе, если уж используешь для определения диапазона High, так и используй Low для кучи. А то всякое бывает ;)

_________________
Лучше переесть, чем недоспать.


 

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
Ray Adams Вообщем пасибо огромное. Теперь поиск работает. было б неплохо, если б тебе можно было скинуть эту прогу на мыло, что б ты посмотрел что лучше изменить, что добавить. кинуть исходник?

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
SardoX можно, скинь куда нить я скачну


 

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
блин. трабла
пишу в событие on create
setting.CheckBox4.Checked:=true;
setting- название формы.
пишется в форме form1.
пишет ошибку EAcessViolation with message ' и т.д' .
пишу где нить в другом месте, например на on button1click в этом же юните.
работает. что за ерунда?
пробовал ставить и true и false - не помогает.

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525


 

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
SardoX
Дело в порядке создания форм - когда создается form1, setting еще не инициализирована.

Добавлено спустя 3 минуты, 20 секунд:
Можно поменять в project/options/forms, перетаскивая их вверх-вниз.

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.


 

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
vor Спасибо. Поменяю порядок создания.

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
SardoX
Цитата:
setting.CheckBox4.Checked:=true;

А зачем так? Если это ты пишеш внутри самой формы, то пиши без указания имения формы, ты же и так внутри нее! Видать у тебя есть проблемы в знании ООП :), советую малость прочитать про обьекты, так как в Delphi все построены на ООП.


 

Member
Статус: Не в сети
Регистрация: 04.01.2004
Откуда: Владивосток
есть вопросы
1)как создать окошко message с кнопками ok и отмена(вопрос о
подтверждении удаления рецепта), что б при нажатии на ok -
происходило удалени, а при отмена- отмена.
или лучше создать еще одну форму?
2)можно ли в FontDialog отследить нажатие не APPLY, а ok? если да, то
как?
3)как отследить закрытие проги на крестик вверху справа.
4)как сделать иконку прозрачной? а то у меня иконка: черный фон и
человечек. а надо просто человечек, что б фон прозрачный был.

Добавлено спустя 4 минуты:
Ray Adams не..ты не понял. я находился в другой форме.. а писал к другой.
т.е я был в форме form1, а чекбокс был в setting(еще одна форма). А проблем с объектами у меня нет..

_________________
*Cofradia Intel* <<<ATI>>>
P4 2.8@3.6/X800Pro/1024Mb/2*160gb WD1600JB/SyncMaster 932в/СВО/Xp SP2 + Asus P525


 

Member
Статус: Не в сети
Регистрация: 26.05.2004
Откуда: Kharkov.UA
SardoX
1)
if MessageBox(0, 'Желаете удалить?', 'Вопрос', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
Delete;
2) Смотри TFontDialog.OnClose;
3) Подвязать хэндлер к Application.MainForm.OnClose;
4) Если это TImage, поставить проперть Transparent в True, все пиксели цвета верхнего левого (0,0) станут прозрачными.


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
SardoX Соори, теперь понял :).
а насчет вопросов я тебе по мылу все сбросил.


 

Member
Статус: Не в сети
Регистрация: 06.01.2004
Откуда: Самара
вобщем вопрос такой
как сохранять т мемо в отдельный фаил как потом открывать как сделать в нём что-то типа БД
чтобы в этой БД производить поиск по ячейкам и строкам и изменять параметры а результаты при изменении вычислялись и соответственно автоматически изменяли связанные с ними поля итд...
то ести как в тектовом файле найти значения по координатам (строка,столбец)
присвоить его переменной вычислить и переписать его и соответствующие значения с другими координатами и так далее

эт канечно просто но я делфи не пользовал уже года 2 а надо как можно быстрее
заранее спасибо

_________________
Matrix 4 конституция или каждый человек имеет право быть избранным.


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Цитата:
как сохранять т мемо в отдельный фаил как потом открывать как сделать в нём что-то типа БД
чтобы в этой БД производить поиск по ячейкам и строкам и изменять параметры а результаты при изменении вычислялись и соответственно автоматически изменяли связанные с ними поля итд...
то ести как в тектовом файле найти значения по координатам (строка,столбец)
присвоить его переменной вычислить и переписать его и соответствующие значения с другими координатами и так далее

Не хилый запросец блин! :) Используй готовые базы данных


 

Кто чем может подскажите!
Пишу программу которая выводит сообщения в спец. окне, Как сделать чтобы можно было сразу выводить много таких окон (одинаковых).
Я пробовал создавать одним способом, но в коде формы есть массив и каждое новое окно при создании переписывает этот массив, т.е. он как бы один на все окна.
Подскажите как можно создать много одинаковых окон с возможностью индивидуальных массивов и если можно с возможностью обращаться к ним. :)


 

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
GESPER
Цитата:
Подскажите как можно создать много одинаковых окон с возможностью индивидуальных массивов

Объявить массив внутри класса формы.

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.


 

vor писал(а):
GESPER
Цитата:
Подскажите как можно создать много одинаковых окон с возможностью индивидуальных массивов

Объявить массив внутри класса формы.

В смысле? В коде самой формы он и обьявлен.


 

Member
Статус: Не в сети
Регистрация: 09.01.2005
Откуда: Питер
Вопрос: есть вот такая функция
Код:
function qwe:dword;
var
temp:dword;
begin
asm
    push eax
    push ebx
    push ecx
    push edx
    cpuid
    mov EAX,$00000001
    mov temp,ebx
    pop ecx
    pop ebx
    pop eax
    pop edx
   end;
result:=temp;
end;


Как потом из результата вычленить первые 8 байт (с 0 по 7)?

_________________
Rara temporum felicitas, ubi quae velis sentire et quae sentias dicere licet!


 

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Zoom Evstrahiev воопервых зделай лучше так, оно эквивалентно:
Код:
function qwe:dword;
var
temp:dword;
begin
asm
    pushad
    cpuid
    mov EAX,$00000001
    mov temp,ebx
    popad
   end;
result:=temp;
end;


ну а первые восемь байт можно получить написав:
Код:
temp:=temp and $FF;


Добавлено спустя 1 минуту, 4 секунды:
Или же по-дурацки
Код:
temp:=byte(temp);

_________________
Ку ку


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 24 из 116<  1 ... 21  22  23  24  25  26  27 ... 116  >
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan