PByte..... Help!

← →
JJohn © (2005-11-17 16:45) [0]

Есть
var Value : PByte; (Delphi)

Как выводить например в Memo или Edit текстовую строку, в зависимости от:
Value - 1) строка, оканчивающаяся нулём (#0)
2) массив из строк (например, xxx#0yyy#0#0)

← →
Reindeer Moss Eater © (2005-11-17 16:54) [1]

В чем проблема-то?
Как выводить, или как понять какое Value?

← →
Erik1 © (2005-11-17 17:49) [2]

Можно так:
Var Value1: PByteArray;
begin
Value1 := Value;
//Так интереснее будет
Value1^[1] := Value1^[0];

← →
Reindeer Moss Eater © (2005-11-17 17:53) [3]

Эрик, это опять ты со своими глупостями?

← →
Reindeer Moss Eater © (2005-11-17 17:59) [4]

1) строка, оканчивающаяся нулём (#0)

ShowMessage(PChar(Value));

Во втором случае :
цикл, в котором после вывода очередной строки
делаем Inc(Value,1+StrLen(PChar(Value)))

← →
JJohn © (2005-11-17 18:58) [5]

объясните, что сделать чтобы выводилось содержимое русских символов..... (PChar(Value))

Надо иметь эти самые символы по указателю Value

const Buff1 : array[1..16] of byte = (240,243,241,241,234,232,229,32,241,232,236,226,238,235,251,0); Buff2 : array[1..15] of byte = (236,224,236,224,0,236,251,235,224,0,240,224,236,243,0); procedure TForm1.Button1Click(Sender: TObject); var Value : PByte; i : integer; begin //Первый случай Value := @Buff1; ShowMessage(PChar(Value)); //Второй случай Value := @Buff2; for i := 1 to 3 do begin ShowMessage(PChar(Value)); Inc(Value,Succ(StrLen(PChar(Value)))); end; end;

← →
Dico (2005-11-23 11:25) [8]

Попробуй SetString

PByte..... Help! Найти похожие ветки