Что исправить в коде?

[lider24816]

Задание.Дана непустая последовательность различных натуральных чисел, за которой следует 0. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены.

Программа все работает, тока нужно чтобы числа вводились в эдит через звездочку '*', а не сплошным числом . Вот что нужно добавить в код чтобы она так работала?




procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..100] of integer;
mas:array[0..100] of char;
k,i,n,g,c,v:integer;
s:string;
begin
k:=1;
n:=0;
s:=edit1.Text;
g:=Length(s);
g:=g-1;
for i:=0 to g do
a[i]:=strtoint(s[i+1]);
for i:=0 to g do
if a[i] mod 2<>0
then a[i]:=a[i]*2;
s:='';
for i:=0 to g do
s:=s+inttostr(a[i]);
label2.caption:=s
end;

end.

[__STDC__]

хм.. по-моему я (или Sazary, один из нас, но кажется все-таки я) уже делал точно такую задачу на форуме. Поиск рулит.

s:=s+'*'+inttostr(a[i]);

?

[lider24816]

А куда именно то вставить эту строчку в код?)))

[__STDC__]

Угадайте с 23 раз
только лучше наверное как-нибудь так

s:=inttostr(a[0]);
for i:=1 to g do
s:=s+'*'+inttostr(a[i]);

[lider24816]

Так он в лэйбле выводит через '*', а мне нужно сделать чтобы я вводил числа в эдит через '*', примерно вот так 1*2*3*4*5*6*0. Вот как так сделать?

[__STDC__]

ну например так

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..100] of integer;
i,n:integer;
s:string;
begin

n:=0;
s:=edit1.Text;

for i:=1 to length(s)-1 do
  if (s[i] <> '*') then begin
    a[n]:=strtoint(s[i]);
    if (a[n] mod 2)<>0
      then a[n]:=a[n]*2;
    inc(n);
  end;


s:=inttostr(a[0]);
for i:=1 to n-1 do
s:=s+'*'+inttostr(a[i]);
label1.caption:=s
end;

[lider24816]

Во, то что надо!!)) Огромное спасибо)))