ByteToStr

[саша40]

Привет. Короче вот код:

function TFrmStringToByte.ByteToString(const Value:array [1..1024] of Byte): String;
var
    I: integer;
    S : String;
    Letra: char;
begin
    S := '';
    for I:=0 To sizeof(Value) Do 
    begin
        letra := Chr(Value[I] + 48);
        S := letra + S;
    end;
    Result := S;
end;

Смысл в том, что я преобразую массив байтов в строку(типо буффера при скачивание файла с помощью WinInet). Вопрос: Будет ли работать?

[Arigato]

1. Вот это: array [1..1024] of Byte, в отдельный тип данных вынесите.
2. Он у вас будет работать, только если значения от 0 до 9, а байт может быть до 255.
3. Массив индексируется с 1, а цикл с 0.
4. S := letra + S; - получим на выходе строку в обратном порядке.

[Аватар]

ТС, вопрос будет ли работать на форуме не задают. Запускают тесты для проверки работоспособности, ставят при необходимости точки останова и отлаживают. Любую программу. На форуме никто не отладит

[саша40]

Сообщение от Arigato

1. Вот это: array [1..1024] of Byte, в отдельный тип данных вынесите.
2. Он у вас будет работать, только если значения от 0 до 9, а байт может быть до 255.
3. Массив индексируется с 1, а цикл с 0.
4. S := letra + S; - получим на выходе строку в обратном порядке.

1. А если просто Byte, так то преобразуется скачиваем по WinInet текст.
2. Как сделать правильно?(код)
3. Ок попробуем с 1.
4. Может тогда: S:=S + letra;

[саша40]

Короче попробовал такой код:

function TForm1.ByteToString(const Value: array of Byte): String;
var
i: integer;
letra: char;
s: string;
begin
Result:='';
for i:= 1 to sizeof(Value) do
begin
letra := Chr(Value[I]);
S:=AnsiString(Letra);
Result:= Result + S;
end;

Должно быть это:

А получил:

Что делать?