Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Int64 как Integer   Найти похожие ветки 

 
F$   (2010-03-31 15:27) [0]

в программе нужно сохранять в переменные размеры 2-х стримов. возможна ли ошибка, если я буду сохранять размеры (Int64) в TPoint.


P: TPoint;

P := Point(Stream1.Size, Stream2.Size);


 
12 ©   (2010-03-31 15:38) [1]

имхо нормально


 
12 ©   (2010-03-31 15:40) [2]

а навсякий может свой пойнт объявить, где не Longint а Longword сказать


 
Демо ©   (2010-03-31 15:41) [3]


> F$   (31.03.10 15:27) 


Не смущеает, что
type TPoint = packedrecord
 X: Longint;
 Y: Longint;
end;


А Stream1.Size - Int64


 
12 ©   (2010-03-31 15:50) [4]

Int64 = 2раза по Longint


 
F$   (2010-03-31 15:53) [5]


> Не смущеает, чтоtype TPoint = packedrecord  X: Longint;
>  Y: Longint;end;А Stream1.Size - Int64


Я вообщем-то из-за этого и парюсь.


 
Демо ©   (2010-03-31 15:59) [6]


> > Не смущеает, чтоtype TPoint = packedrecord  X: Longint;
>  >  Y: Longint;end;А Stream1.Size - Int64Я вообщем-то из-
> за этого и парюсь.


Ну если тебе так нужно в одну сьрукткру сохранять, так создай её и всё.
Смысл раздумывать об этом?

TSizeStreams=record
  Stream1,Stream2: Int64;
end;


 
12 ©   (2010-03-31 16:00) [7]

аа там 2 раза по int64..
тогда - свой тип


 
Демо ©   (2010-03-31 16:00) [8]

И функцию соответствующую добавь. Например

function SizeStreams(Size1,Size2: Int64): TSizeStreams;
begin
 Result.Stream1 := Size1;
 Result.Stream2:= Size2;
end;



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.061 c
2-1266488901
pleasure
2010-02-18 13:28
2010.08.27
каскадное копирование TSQL


2-1265871366
ryabis
2010-02-11 09:56
2010.08.27
Много инсертов подряд.


2-1272953338
Беликов А.А
2010-05-04 10:08
2010.08.27
Конвертация TBitmap в TGPBitmap


2-1267971766
pavel_guzhanov
2010-03-07 17:22
2010.08.27
как сравнить содержимое двух TImage?


2-1265974282
Егорка
2010-02-12 14:31
2010.08.27
Дерево в памяти + Listview





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский