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

Вниз

Вопрос по синтаксису   Найти похожие ветки 

 
impuls   (2006-01-17 12:48) [0]

Люди помогите года 3 несадился за Delphi поэтому почти все забыл.
Два вопроса
1) кто нибудь напишите по строкам что это значит
procedure TForm1.CommPortDriver1ReceiveData(Sender: TObject;
 DataPtr: Pointer; DataSize: Integer);
var
b:^byte;
i :integer;
begin
b:=DataPtr;
for i:= 1 to  DataSize do
begin
case i of
1: begin a:= b^; label1.caption:="a:"+IntToStr(a); end;
2: begin bb:=b^; label2.caption:="bb:"+IntToStr(bb); end;
end;
memo1.Lines.Add(IntToStr(b^));
inc(b);
end;
end;

просто не помню что значит запись b:^byte; и a:= b^; а точнее знак ^ в записи.

2)  нужно вызвать следуюшую функцию CommPortDriver1.ReadData().
что нужно написать в скобках, у меня не получается задать выдает ошибку, что типа неправильный формат.
Вот справка по функции:
function ReadData( DataPtr: PAnsiChar; MaxDataSize: DWORD ): DWORD;    

Description
The ReadData method reads a block of memory (DataPtr) of MaxDataSize bytes from the RX buffer.


 
Digitman ©   (2006-01-17 12:59) [1]


> не помню что значит запись b:^byte; и a:= b^; а точнее знак
> ^ в записи


это знак оператора разыменования.

запись вида b:^byte означает, что в приложении будет фигурировать переменная с симв.идентификатором b, прямое назначение которой - хранение адреса переменной типа byte

запись вида a:= b^ означает : присвоить переменной a значение, равное содержимому ячейки памяти, адрес которой будет взят из переменной b



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

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

Наверх





Память: 0.45 MB
Время: 0.011 c
15-1136997481
QwertyKz
2006-01-11 19:38
2006.02.05
Поиск окружностей


15-1137044415
begin...end
2006-01-12 08:40
2006.02.05
С Днём рождения! 12 января


1-1135935500
__oleg
2005-12-30 12:38
2006.02.05
Scrool в TStringGrid


15-1137108846
Quattro
2006-01-13 02:34
2006.02.05
KaZaa


2-1137834327
нет
2006-01-21 12:05
2006.02.05
помогите оптимизировать код





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