Попробуйте это:
var s : string; begin s := RevField.text; s[1] := chr(ord(s[1]) + 1); RevField.text := s; end; |
Здесь кроются 2 проблемы:
Лучшим решением, по-видимому, будет написание специфической функции. Например, в случае, если revision-символ всегда является конечным символом строки, функция могла бы выглядеть следующим образом:
function IncrementTrailingVersionLetter(Str: string): string; begin Str[Length(Str)] := Char(Ord(Str[Length(Str)]) + 1); IncrementTrailingVersionLetter := Str; end; |
и использовать ее следующим образом:
with RevField do Text := IncrementTrailingVersionLetter(Text); |
[001542]