Цитата:
|
Сообщение от noveek
Привет непонимаю как можно прибавить символ на единицу
вот так +1 к числу
label1.caption:=inttostr(strtoint(label1.caption)+ 1);
|
Если символ это тип Char, то можно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var Ch: Char;
begin
Ch:= Edit1.Text[1];
Edit1.Text:= Succ(Ch);
end;