Преобразовать из string в array of char

[vitalik007]

Подскажите пожалуйта как мне преобразовать
из string B array of char

[AVer]

Честно говоря не совсем понимаю зачем это нужно. String - по сути и есть массив символов. Ну раз очень надо:

Var A:Array[0..MaxSize] of Char;

Procedure StrToArr(S:String);
Var I:Integer;
Begin
For I:=0 To Length(S)-1 Do
A[I]:=S[I];
End;

[Stilet]

Aver будь проще :


var s:string; a:array[0..MAXWORD] of char;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
s:='12345';
move(s[1],a,length(s));
caption:=string(a);
end;

[Alar]

http://www.delphibasics.ru/AnsiString.php

AnsiString - и есть по сути массив char

используй указатели

http://www.delphibasics.ru/Addr.php

Теперь разберёшься

[Alar]

+ ещё это можно почитать, и комментарии.

http://pblog.ru/?p=84

[Ring0Sn]

а можно и еще проше

  Pointer(sArray):= Pointer(sString);
  ShowMessage(pchar(sArray));

[Alar]

http://delphibasics.ru/Pointer.php

Определяет общее использование указателя на любые данные в памяти.