Главная страница
    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.059 c
2-1268379069
Б
2010-03-12 10:31
2010.08.27
Имя файла в TOpenDialog.


15-1262219675
Petr V. Abramov
2009-12-31 03:34
2010.08.27
закрывается Игналинская АЭС


15-1265031893
KSergey
2010-02-01 16:44
2010.08.27
Разрешить локальный вход на контролер домена (RDP)


2-1267297747
Первокурсница
2010-02-27 22:09
2010.08.27
Две задачи для первого курса,Delphi


4-1226752749
VolMyr
2008-11-15 15:39
2010.08.27
хук на интернет адрес





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