Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Задача:
Передать функции данные, функция должна прислать в ответ массив с данными. Функцию написать удалось

...
type
  TMyDataArr = array of string;
...
function Test(s: string): TMyDataArr;
var
  i, L: Integer;
  Cut: string;
begin
  SetLength(Result, 0);
  Cut := '';
 
  for i := 1 to Length(s) do
  begin
    if s[i] in ['@', '#', '$', '%', '&'] then
    begin
      L := Length(Result);
      SetLength(Result, L + 1);
      Result[L] := Cut;
      Cut := '';
    end
    else Cut := Cut + s[i];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Answer: array of string;
  i: Integer;
begin
  SetLength(Answer, 2);
  Answer := Test('000@001#002$003%0&'); // Incompatible types
end;

Вопрос задал: Shouldercannon (статус: Посетитель) Вопрос отправлен: 17 мая 2012, 13:45 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Shouldercannon!

procedure TForm1.Button1Click(Sender: TObject);
var
  Answer: TMyDataArr;
  i: Integer;
begin
  //SetLength(Answer, 2); никому не нужно
  Answer := Test('000@001#002$003%0&'); // Incompatible types
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 17 мая 2012, 14:01

Мини-форум вопроса

Shouldercannon (статус: Посетитель), 17 мая 2012, 18:39 [#1]: procedure TForm1.Button1Click(Sender: TObject); var Answer: TMyDataArr; begin Answer := Test('000@001#002$003%0&');   Label1.Caption := Answer[0]; Label2.Caption := Answer[1]; Label3.Caption := Answer[2]; Label4.Caption := Answer[3]; Label5.Caption := Answer[4]; end;

23 мая 2012, 16:56: Статус вопроса изменён на решённый (изменил модератор DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.