| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PByte..... Help!

JJohn ©   (2005-11-17 16:45:00) 

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

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

---

Dico   (2005-11-23 11:25:00) [1]

Попробуй SetString

---

Reindeer Moss Eater   (2005-11-17 22:35:00) [2]

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;

---

Reindeer Moss Eater   (2005-11-17 22:03:00) [3]

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

---

JJohn   (2005-11-17 18:58:00) [4]

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

---

Reindeer Moss Eater   (2005-11-17 17:59:00) [5]

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

ShowMessage(PChar(Value));

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

---

Reindeer Moss Eater   (2005-11-17 17:53:00) [6]

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

---

Erik1   (2005-11-17 17:49:00) [7]

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

---

Reindeer Moss Eater   (2005-11-17 16:54:00) [8]

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

---

Наверх