String в array of Char и обратно.

[_PROGRAMM_]

Добрый вечер. Знаю тема такая была, но у меня свои вопросы. В общем я написал функцию для перевода массива в строку.

function TForm1.StrToStrArray(str: String): String;
var
i:integer;
begin
SetLength(str,Length(str)+2);

for  i:=1 to Length(str)+2 do
  begin
  if i<>Length(str)+2 then
    strr[i]:=str[i]
  else
    strr[i]:=#0;
  end;

end;

Хотелось бы узнать тонкости перевода и правильность моего решения. Я хочу это использовать для передачи текста по WinSock. Спасибо.

[Человек_Борща]

Массив чего? Какой массив?
У вас входная строка и выходная тоже строка. Сути не уловил.
Если Array of Char то есть функция StrPas() - Аналог string(Array of Char);

[_PROGRAMM_]

У вас входная строка и выходная тоже строка.

Я не придумал, как на выходе сделать array of char. Согласен - глупость. Насчет готовых функций StrPas и String я задумаюсь. Результат сообщу завтра.
Спасибо.

[Человек_Борща]

Все просто:

type
  TCharArray = array of Char;
  PCharArray = ^TCharArray;
var
  Form1: TForm1;

implementation

{$R *.dfm}

function StrToCharArray(aStr: string): PCharArray;
var
  tArr: TCharArray;
  i: Integer;
begin
  SetLength(tArr, Length(aStr) + 2); //+2 чтобы строка заканчивалась #0
  for i := 1 to Length(aStr) do
    tArr[i] := aStr[i];
  Result := Addr(tArr); //Вернём указатель на массив. 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:String;
  p:PCharArray;
begin
  s:='Privet';
  p:=StrToCharArray(s);
  //Результат = {#0,P,r,i,v,e,t,#0}
end;

[Johnson]

Всё уже придумано до вас...
Достаточно поискать оболочку винсоков.

Могу предложить свою.
Работает надежно, как в качестве сервера (в трех режимах - синхронный, асинхронный и потоковый), так и в качестве клиента.
Удобно передавать строку, например, моя библиотека общается с основным приложением посредством строк...
Использует всего один модуль. Пример отправки/получения строки (встроено в оболочку):

function TxTCPSocket.ReceiveStr: ansistring;
var
  sz: Integer;
begin
  sz:=GetRcvdCount;
  if sz=-1 then Exit;
  SetLength(Result,sz);
  ReceiveBuf(Result[1],sz);
end;
function TxTCPSocket.SendStr(buf: ansistring): Boolean;
begin
  Result:=SendBuf(buf[1],Length(buf))=Length(buf);
end;