Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c
