Помочь найти ошибку в коде.

[Максим_maks]

Всем привет. Вот нашел на просторах сети данный код по преобразованию строки в байт и наоборот:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
      TByteArr = array of byte;
    TStringArr = array of String;

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { private declarations }
    function StrToByte(const Value: String): Tbytearr;
    function ByteToString(const Value: TByteArr): String;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


function Form1.StrToByte(const Value: String): TByteArr;
var
        I: integer;
begin
         SetLength(Result, Length(Value));
         for I := 0 to Length(Value) - 1 do
         Result[I] := ord(Value[I + 1])-48;
end;


function Form1.ByteToString(const Value: TByteArr): String;
var
        I: integer;
        S : String;
        Letra: char;
begin
S := '';
for I := Length(Value)-1 Downto 0 do
begin
  letra := Chr(Value[I] + 48);
  S := letra + S;
end;     Result := S;

end;


procedure TForm1.Button1Click(Sender: TObject);
var
        ArByte : TByteArr;
        I : Integer;
begin
SetLength(ArByte, Memo1.Lines.Count);

for I := 0 to Memo1.Lines.Count - 1 do
ArByte[I] := StrToInt(Memo1.Lines.Strings[I]);
ShowMessage(ByteToString(ArByte));


end;

procedure TForm1.Button2Click(Sender: TObject);
Var   xByte: TByteArr;
        I: integer;
        begin
        Memo1.Clear;
        xByte := StrToByte(Edit1.Text);
        for I := 0 to Length(xByte) - 1 do
        Memo1.Lines.Add(IntToStr(xByte[I]));
end;

end.

Брал отсюда http://mrbool.com/string-to-byte-and...g-delphi/18196

Выдает такие ошибки компилятор:

Компиляция проекта, цель: project1.exe: Код завершения 1, ошибок: 2
unit1.pas(42,25) Error: class identifier expected
unit1.pas(52,28) Error: class identifier expected

В чем может быть проблема?

[Krasiosoft]

Измените это:

function Form1.StrToByte(const Value: String): TByteArr;
function Form1.ByteToString(const Value: TByteArr): String;

на это:

function TForm1.StrToByte(const Value: String): TByteArr;
function TForm1.ByteToString(const Value: TByteArr): String;

т.е. вместо Form1 написать TForm1.

[Stilet]

по преобразованию строки в байт

Попахивает Великим Орхиватором. ))
Тебе, если не секрет, зачем такая музыка? Строка она и так байтовый массив, даже если юникодная.

[Krasiosoft]

Тоже не знаю для чего это нужно, но а разве в Pascal'e можно как-то проще преобразовать с типа string в тип array of byte?

[Stilet]

а разве в Pascal'e можно как-то проще преобразовать с типа string в тип array of byte?

Вопрос не в том, можно или нет. Вопрос в том - зачем?
Вот этот ответ от ТС оч. хочется услышать.

[Utkin]

Тоже не знаю для чего это нужно, но а разве в Pascal'e можно как-то проще преобразовать с типа string в тип array of byte?

Можно попробовать получить указатель и через move, но:

Вопрос в том - зачем?

[Максим_maks]

Всем спасибо, вечером попробую исправить. Рассказываю зачем мне это нужно. Мне нужно организовать передачу байтов в плату arduino через com порт. Использую компонент SDPO. Засылаю байты и слушаю порт сниффером. На входе 0x00, на выходе 30 78 30 30 , а мне нужны байты. Данные заведены в StringGrid в виде 0x00, 0x80 и т.д.

[Stilet]

Засылаю байты и слушаю порт сниффером.

Не нужно ничего перегонять. @s[1] - даст указатель на байтовый массив строки.

Данные заведены в StringGrid в виде 0x00, 0x80 и т.д.

Всмысле их еще и конвертировать из Сишной притулки нужно??

[Максим_maks]

А причем здесь сишные притулки???? 0x это формальность, 00 нужные данные.

[Максим_maks]

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

Измените это:

function Form1.StrToByte(const Value: String): TByteArr;
function Form1.ByteToString(const Value: TByteArr): String;

на это:

function TForm1.StrToByte(const Value: String): TByteArr;
function TForm1.ByteToString(const Value: TByteArr): String;

т.е. вместо Form1 написать TForm1.

Заменил, вот ошибки :
unit1.pas(26,20) Fatal: Syntax error, ":" expected but "." found

type
      TByteArr = array of byte;
    TStringArr = array of String;

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { private declarations }
    function TForm1.StrToByte(const Value: String): TByteArr;
    function TForm1.ByteToString(const Value: TByteArr): String;
  public
    { public declarations }
  end;