[noveek]

Привет непонимаю как можно прибавить символ на единицу

вот так +1 к числу

label1.caption:=inttostr(strtoint(label1.caption)+ 1);

[Pilot_Red]

а в чем собственно проблема??

[noveek]

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

а в чем собственно проблема??

Проблема в том что числа переходят на два и три байта и символы нет ((

10,100

Вот бы когда все символы перечислятся тогда начинался второй байт символов

[cotseec]

label1.caption:=inttostr(strtoint(label1.caption)+ 1) - тут прибавляется единица не к символу, а к числу: strtoint(label1.caption) - конвертит из строкового представления в числовое, конечно если в label1.caption написано число, в противном случае - ошибка, а inttostr конвертит обратно - из числового представления в символьное

[noveek]

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

label1.caption:=inttostr(strtoint(label1.caption)+ 1) - тут прибавляется единица не к символу, а к числу: strtoint(label1.caption) - конвертит из строкового представления в числовое, конечно если в label1.caption написано число, в противном случае - ошибка, а inttostr конвертит обратно - из числового представления в символьное

Да прибавляется к числу ну а к символу то как и чтобы все это также переходило в неск байт

[Konrad]

Jlyjpyfxyj 'gbltvbz jnegtybz////


Ты хочешь с А сделать Б, с Б - В?

[noveek]

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

Jlyjpyfxyj 'gbltvbz jnegtybz////


Ты хочешь с А сделать Б, с Б - В?

Странно обычно эксперты понимают с полу слова что человеку нужно

[Ildar-tsr]

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

Странно обычно эксперты понимают с полу слова что человеку нужно

За экспертов не скажу, но большинство форумчан тяжело воспринимают фразы из разряда "Бац и тут оно, ну ты понял о чем я"! Воспринимают нормально вопросы такого плана "Доброго времени суток. Я разрабатываю/пытаюсь разработать программу, которая ..., но столкнулся с следующей проблемой .... К сообщению прилагаю свой код".

[noveek]

Никакой ответ тоже ведь ответ ???? И я заново буду соображать что делать

[Pyro]

наверно надо Char вместо InttoStr

[AlexSku]

Сообщение от 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;

[Konrad]

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

Странно обычно эксперты понимают с полу слова что человеку нужно

Уважаемый, уж поверте имею опыт общения с такими самородками.
Бывало что писал прогу, а потом они вдруг вспоминали что это им не так задали, они забыли и вопрос совсем в другом. И прогу нужно было писать заново...
А играться тут в экстрасенса - уж извините, нету желания.

[noveek]

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

Если символ это тип Char, то можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Ch: Char;
begin
  Ch:= Edit1.Text[1];
  Edit1.Text:= Succ(Ch);
end;

Спасибо то что нужно наконецто грамотный человек