Char

← →
Hammer1 (2002-11-11 10:46) [0]

Мастера помогите. Как загнать строку в char масив.

← →
Skyle (2002-11-11 10:54) [1]

А чем тебе она как строка не нравится в этом смысле?

← →
e-mike (2002-11-11 10:58) [2]

Преобразовать к PChar и работать с ним, как с массивом:

var s:string; a:pchar; begin s:="asdfghj"; a:=pchar(s); showmessage(a[4]); end;

← →
Smithson (2002-11-11 11:00) [3]

А зачем? Строка и так является массивом символов (с индексами от 1 до length(string)).

← →
Hammer1 (2002-11-11 11:17) [4]

Мне необходимо использовать функцию, входным элементом которой является не строка а масив char

← →
Skier (2002-11-11 11:18) [5]

>Hammer1
Move(...) ?

← →
Alx2 (2002-11-11 11:54) [6]

>Hammer1 © (11.11.02 11:17)
Использовать приведение типов.
Так например:
type
TInputArray = array [1..100] of char;

procedure SomeFunc(Const Arr : TInputArray); // То, куда надо передать
begin
..............
end;

procedure test;
Var S : String;
begin
SomeFunc(TInputArray((@S[1])^)); // Передаем как char-массив
end;

← →
Reindeer Moss Eater (2002-11-11 12:01) [7]

StrPLCopy

← →
Hammer1 (2002-11-11 12:06) [8]

Alx2 и Skier, а также всем остальным, спосибо за помощь.

← →
Dimka Maslov (2002-11-11 12:51) [9]

Можно приведение типов не использовать. Если аргумент функции имеет тип PChar, то к нему можно обращаться как к массиву символов, начальным индексом которого является 0.

procedure SomeProc(Arr: PChar);
begin
Arr[1]:=....
end;

var
S: string;
begin
SomeProc(PChar(Arr));
end;

Char Найти похожие ветки