Про указатели

← →
KSergey © (2004-06-11 14:14) [0]

Такой код:

function TTextFileStream.Read(var Buffer; Count: Longint): Longint;
begin
...
if ((PChar(@Buffer))^ > #0) then ...

Я правильно понимаю, что я здесь проверю первый байт в буффере на то, что он отличен от 0?

← →
Anatoly Podgoretsky © (2004-06-11 14:23) [1]

В принципе да, поскольку беззнаковое, а в общем нет, неравенство проверяют с помощью оператора <>

← →
KSergey © (2004-06-11 14:27) [2]

Ну, именно про беззнаковое и было подразумето само собой ;) В основном я про синтаксис указателей спрашивал, а то не люблю я их в дельфи, признаться.

Спасибо.

PS
К стати, а может это можно проще записать?

← →
Sandman25 © (2004-06-11 14:30) [3]

procedure re(var Buffer);
var
A: Byte absolute Buffer;
begin
if A<>0 then
showmessage("0");
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t: array[1..100] of char;
begin
t[1] := #0;
showmessage("1");
re(t);
showmessage("2");
t[1] := #1;
re(t);
end;

← →
GuAV © (2004-06-11 17:15) [4]

> К стати, а может это можно проще записать?

Byte(Buffer)<>0

имхо absolute хуже чем просто typecast (это святая вера :) )

Про указатели Найти похожие ветки