[flips]

Какое условие записать для повторяющихся элементов?

[T-dayne]

массив чего?

[Страдалецъ]

Предположу что речь идет о модуле Variants;

[flips]

Нужно взять массив из строки и вывести его в Memo
Вот код для взятия из строки:

Код:

procedure getArrayFromStr(var a:TArray100;var cnt:integer; const s:string);
 var wep:integer; w:string[20];s1:string;
begin
s1:=s;
cnt:=0;
while length(Trim(s))>0 do
 begin
 s1:=Trim(s1);
 wep:=Pos('',s1);
 if wep=0 then
  wep:=length(s1)
 else
  wep:=wep-1;
 w:=copy(s1,1,wep);
 delete(s1,1,wep);
 cnt:=cnt+1;
 a[cnt]:=strtoint(w);
 end;
end;

Вот код вывода в Memo:

Код:

procedure showArrayInMemo(const a:TArray100;cnt:integer;Memo1:TMemo);
 var i:integer;
begin
 Memo1.Clear;
 for i:=1 to cnt do
 begin
  Memo1.Lines.Add(inttostr(a[i]));
 end;
end;

При выводе никаких проблем не возникает, а вот при вводе массива из строки выскакивает ошибка
Проблема в этой строке:

Код:

a[cnt]:=strtoint(w);

Массив заполняется случайными числами. Вот код:

Код:

procedure createRandomArray(var a:TArray100;cnt,modul:integer);
 var i:integer;
begin
 randomize;
 for i:=1 to cnt do a[i]:=random(modul);
end;

А вот код вывода в строку из которой потом берется массив для вывода в Memo:

Код:

function ArrayToStr(const a:TArray100;cnt:integer):string;
 var i:integer;
begin
 result:='';
 for i:=1 to cnt do
  result:=result+intToStr(a[i])+' ';
end;

Просьба пояснить что не так в строке или подпрограмме в которой выскакивает ошибка.
Спасибо за внимание.

[Страдалецъ]

Как я понял цель функции getArrayFromStr извлечь из строки числа и заполнить ими массив.
Для начала, цикл у вас никогда не завершится потому-что вы обрабатываете S1 а проверяете S которая никак не меняется.

[flips]

забыл поменять.
Да вы правильно поняли.
Может мы перейдем в icq, чтобы решить все проблемы сразу?

[flips]

И еще как записать условие четных элементов массива?

[Страдалецъ]

Пока не получится по аське пообщаться. С чужого компа периодически выглядываю на форум.

[flips]

А что насчет самих вопросов?
Второй вопрос возможно глуповатый, но условие нужно одновременно записывать или по-очереди?

[lmikle]

Сообщение от flips

И еще как записать условие четных элементов массива?

Код:

if (N mod 2) = 0 then showmessage('четный');

[flips]

Сообщение от lmikle

Код:

if (N mod 2) = 0 then showmessage('четный');

С условием разобрался, но подскажите с считыванием данных для массива из строки, повторю исправленный код

Код:

procedure getArrayFromStr(var a:TArray100;var cnt:integer; const s:string);
 var wep:integer; w:string[20];s1:string;
begin
s1:=s;
cnt:=0;
while length(Trim(s1))>0 do
 begin
 s1:=Trim(s1);
 wep:=Pos('',s1);
 if wep=0 then
  wep:=length(s1)
 else
  wep:=wep-1;
 w:=copy(s1,1,wep);
 delete(s1,1,wep);
 cnt:=cnt+1;
 a[cnt]:=strtoint(w);
 end;
end;

Ошибка при выполнении выскакивает в этой строке

Код:

a[cnt]:=strtoint(w);

[flips]

Помогите

[flips]

Товарищи форумчане помогите, пожалуйста .

[Bargest]

попробуй сделать так:

Код:

...
showmessage(w+' '+inttostr(length(w)));
a[cnt]:=strtoint(w);

Может баг увидишь

[flips]

Разобрался я со считыванием данных из строки в кавычках для фун-и pos пробел не указал.
Новая проблема появилась. Задание звучит так:
Из массива удалить четные элементы, элементы то удаляет, но еще добавляет мусор. Где нужно внести поправки в код?

Код:

procedure DelEvenElement(var a:TArray100;cnt:integer);
 var i,j:integer;
begin
 i:=1;
 while i<=cnt do
  begin
   if (a[i]mod 2)=0 then
   begin
    dec(cnt);
    for j:=i to cnt do
    a[j]:=a[j+1];
   end
   else
   i:=i+1;
  end;
end;