Скачать: CL | DM;

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))

---

← →
Reindeer Moss Eater ©   (2005-11-17 22:03) [6]

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

---

← →
Reindeer Moss Eater ©   (2005-11-17 22:35) [7]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.043 c