Member
Статус: Не в сети Регистрация: 04.01.2004 Откуда: Владивосток
Ray Adams сенкс. разбор строки я уж сделал. а можно сделать то же, что ты написал, но только: сначала ищется первое слово. А потом уже идет отсеивание...
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 Вообщем пасибо огромное. Теперь поиск работает. было б неплохо, если б тебе можно было скинуть эту прогу на мыло, что б ты посмотрел что лучше изменить, что добавить. кинуть исходник?
Member
Статус: Не в сети Регистрация: 04.01.2004 Откуда: Владивосток
блин. трабла
пишу в событие on create
setting.CheckBox4.Checked:=true;
setting- название формы.
пишется в форме form1.
пишет ошибку EAcessViolation with message ' и т.д' .
пишу где нить в другом месте, например на on button1click в этом же юните.
работает. что за ерунда?
пробовал ставить и true и false - не помогает.
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(еще одна форма). А проблем с объектами у меня нет..
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) станут прозрачными.
Member
Статус: Не в сети Регистрация: 06.01.2004 Откуда: Самара
вобщем вопрос такой
как сохранять т мемо в отдельный фаил как потом открывать как сделать в нём что-то типа БД
чтобы в этой БД производить поиск по ячейкам и строкам и изменять параметры а результаты при изменении вычислялись и соответственно автоматически изменяли связанные с ними поля итд...
то ести как в тектовом файле найти значения по координатам (строка,столбец)
присвоить его переменной вычислить и переписать его и соответствующие значения с другими координатами и так далее
эт канечно просто но я делфи не пользовал уже года 2 а надо как можно быстрее
заранее спасибо
_________________ Matrix 4 конституция или каждый человек имеет право быть избранным.
Advanced member
Статус: Не в сети Регистрация: 09.06.2003 Откуда: USSR
Цитата:
как сохранять т мемо в отдельный фаил как потом открывать как сделать в нём что-то типа БД чтобы в этой БД производить поиск по ячейкам и строкам и изменять параметры а результаты при изменении вычислялись и соответственно автоматически изменяли связанные с ними поля итд... то ести как в тектовом файле найти значения по координатам (строка,столбец) присвоить его переменной вычислить и переписать его и соответствующие значения с другими координатами и так далее
Не хилый запросец блин! Используй готовые базы данных
Кто чем может подскажите!
Пишу программу которая выводит сообщения в спец. окне, Как сделать чтобы можно было сразу выводить много таких окон (одинаковых).
Я пробовал создавать одним способом, но в коде формы есть массив и каждое новое окно при создании переписывает этот массив, т.е. он как бы один на все окна.
Подскажите как можно создать много одинаковых окон с возможностью индивидуальных массивов и если можно с возможностью обращаться к ним.
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!
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения