var
sAr: array[0..16] of char;
function test(str: string): array[0..16] of char;
begin
//перевод каждого элемента строки в элементы массива
end;
sAr:=test('test');
возврат массива из функции
народ можно ли фнкцией возвратить массив?
Ну как нить так:
Вообще мне надо именно перевести строку в массив char, но попутно возник вопрос о возврашении массива.
Никто не подскажет как такое замутить?
[COLOR=red]используем тэги code (Moderator)[/COLOR]
Ну как нить так:
Код:
Вообще мне надо именно перевести строку в массив char, но попутно возник вопрос о возврашении массива.
Никто не подскажет как такое замутить?
[COLOR=red]используем тэги code (Moderator)[/COLOR]
[COLOR="Red"]замечание[/COLOR]: Правила форума, пункт 5
[COLOR="red"]В следущий раз тема будет закрыта.[/COLOR]
[COLOR="red"]В следущий раз тема будет закрыта.[/COLOR]
type TArray=array[n..m+n] of your_type;
function your_function(your_parameters):TArray;
begin
//your code
end;
function your_function(your_parameters):TArray;
begin
//your code
end;
Это я знаю. НО!
При таком присвоении массиму типа char он выдаёт несоответствие типов, мол нужно элементы char, а я ему какой TArray пихаю
При таком присвоении массиму типа char он выдаёт несоответствие типов, мол нужно элементы char, а я ему какой TArray пихаю
покажи как ты это делаешь
так как я не знаю как сделать нормально, я в тупую создаю процедуру, которая переводит каждый элемент строки в элемент массива(каждая процедура для каждого массива). Это как-то тупо, вот я и решил вот спросить
код то сам покажи, а то процедуры, функции, сложно очень понять в чем проблема не имея четкого представления задачи
Код:
var
testAr: array[0..16] of char;
procedure test(str: string);
var
i: integer;
begin
for i:=0 to length(str) do
testAr:=str[i+1];
end;
testAr: array[0..16] of char;
procedure test(str: string);
var
i: integer;
begin
for i:=0 to length(str) do
testAr:=str[i+1];
end;
ну вот примерно так
сразу видно выход за границы: когда у тебя i=length(str) ты обращаешься к i+1, а так вроде и ничего
Код:
var testAr[0..16] of char;
procedure test(str:string);
var i:integer;
begin
for i:=0 to length(str)-1 do
testAr:=str[i+1];
end;
procedure test(str:string);
var i:integer;
begin
for i:=0 to length(str)-1 do
testAr:=str[i+1];
end;
Да не в этом суть... Как это заменить более функционально? Чтоб например была не процедура, а функция. И чтоб функция возвращала массив символов. Ну чтоб можно было сделать вот так:
Код:
testAr:=test('тест');
вот посмотри. Функция разбивает строку на массив символов.
А, ну вроде понял...
Спасибо!
Спасибо!
хмм..... а чё... PChar не подходит?
в том то и дело что нет