[Delphi] 1+1

0

jak zrobic aby do stringa S który sie równa 1 dodać cyfrę 1 tak aby string równał się 2 ??

jest to banalne proste ale niepamiętam jak to zrobić ;p

0
  1. Inc(StrToIns(S)); // zwieksza o jeden
  2. Inc(StrToInt(S), 2003); // zwieksza o 2003
0

s:='1';
s:=IntToStr(StrToInt(s) + 1)

0

A nie można po prostu tak?:
[code]S := '1';
S[1] := S[1] + 1;[/code]
Przecież string jest równy jeden, więc wiadomo, że następny znak w tablicy ASCII jest równy dwa.

0

S := '1';
S[1] := S[1] + 1;

To nie C.... W Pascalu tak nie można.

0

Po "przeanalizowaniu" problemu ;p z Vogelem końcowa postać wygląda następująco:
Byte(S[1]):=Byte(S[1]) + 1;

[[b]Vogel[/b]: albo Inc(Byte(S[1]))]

1 użytkowników online, w tym zalogowanych: 0, gości: 1