из Char в Integer

[Onekey]

Эм подскажите плз.
мне надо a[0] придать значение a[0]*2

a[0]-типа char.

а проще говоря мне надо из массива символов взять 1 символ и умножить его на 2.

как перевести из char в integer??

[Stilet]

a[0]:=chr(ord(a[0])*2);

[Onekey]

не совсем то.

мне надо сначала символ перевести с число, затем его умножить, а потом обратно перевести в символ...

тоесть если a[0] = 2 то после умножения оно станет =4

а то если a[0]:=chr(ord(a[0])*2)

a[0]=1 то после yмножения получиться 'b'

[mihali4]

a[0]:=IntToStr(StrToInt(a[0])*2);

[Alter]

Это?

procedure TForm1.Button1Click(Sender: TObject);
var
  a :string;
  I, L, Z, Err :Integer;
  S :string[1];
begin
 a := Edit1.text;
 L := Length(a);
 If L > 0 then
 for I := 1 to L do
 begin
  Val(a[I], Z, Err);
  Z := Z*2;
  Str(Z, S);
  a[I] := S[1];
 end;
 Edit2.Text := a;
end;

Только ограничения на входные числа [0..4], иначе нельзя в Char сунуть обратно один символ, без обрезания.

[Onekey]

Var A:array[0..20] of char;
Begin
  Assignfile(InPut, InFile);
  ReSet(InPut);
  Assignfile(OutPut, OutFile);
  ReWrite(OutPut);
  Read(a);
 a[0]:=IntToStr(StrToInt(a[0])*2);
  Write(A);
  Closefile(Output);

Incompatible types 'Char' and 'String'

на строку a[0]:=IntToStr(StrToInt(a[0])*2);

[Stilet]

не совсем то.

мне надо сначала символ перевести с число, затем его умножить, а потом обратно перевести в символ...

Так. Все понятно. Бегом учить матчасть!
Иначе из школы выгонят.

[mihali4]

Вот тут подробненько:
http://forum.vingrad.ru/act-ST/f-90/t-40779.html

[Onekey]

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

Так. Все понятно. Бегом учить матчасть!
Иначе из школы выгонят.

эм причем тут матчасть?

у меня есть строка ( например 1234567)

мне надо достать из нее 1 и умножить его на 2 ( тоесть получится 2234567)

[Stilet]

эм причем тут матчасть?

А при том.
Сначала ты говоришь

мне надо a[0] придать значение a[0]*2
a[0]-типа char.

а потом у тебя уже всплываемость перешла в

у меня есть строка

Тем паче что

надо достать из нее 1 и умножить его на 2 ( тоесть получится 2234567)

Учи матчасть, учи что такое строка и как работать с ее символами, и только по прошествии по нескольким книгам ты поймешь что я написал тебе.