Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Вниз

Очень туго с СИ   Найти похожие ветки 

 
SPOK   (2006-02-10 12:07) [0]

Подскажите как интерпритировать замечательную надпись на СИ в Pascal
(Delphi)
COLORREF Palette[256]
memset((char*)&Palette,0,255*Sizeof(COLORREF))
ну и желательно разяснить, что имел ввиду автор.


 
begin...end ©   (2006-02-10 12:37) [1]

> Подскажите как интерпритировать замечательную надпись на
> СИ в Pascal

var
 Palette: array [0..255] of COLORREF;
begin
 FillChar(Palette, 255 * sizeof(COLORREF), 0)
end

> ну и желательно разяснить, что имел ввиду автор

Объявление 256-элементного массива структур COLORREF и заполнение нулями первых 255 элементов массива.


 
Don Nikola ©   (2006-02-10 12:46) [2]

На вид простое обнуление палитры, что-то вроде этого:

---
Var
   Palette: array[0..255] of COLORREF;

begin
   FillChar(Palette,256*SizeOf(COLORREF),0);
end;
---


 
Don Nikola ©   (2006-02-10 12:47) [3]

Пока писал, ответили ;) Вот лаги в инете ;))


 
Defunct ©   (2006-02-10 15:44) [4]

> ну и желательно разяснить, что имел ввиду автор.

Очевидно, автор кода допустил ошибку. нет резона создавать массив из 256-ти элементов, а заполнять нулями только 255.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 2.346 c
2-1139653214
13
2006-02-11 13:20
2006.02.26
сохранение в ini


8-1127121475
NightLord
2005-09-19 13:17
2006.02.26
Графические форматы


15-1138969011
VolanD666
2006-02-03 15:16
2006.02.26
Касперский, что делать?


1-1138102595
Guf
2006-01-24 14:36
2006.02.26
Параметры, передоваемые програме из командной строки


15-1139291447
DelphiN!
2006-02-07 08:50
2006.02.26
Соединение с сервером происходит только после его пинга





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский