[delphi] incrementare una stringa di valori

[mondobimbi]

se i primi due sono caratteri e gli ultimi due sono numeri puoi scomporre la stringa nelle sue due parti

var
  str, str_char, str_num : string;
  num : integer;

begin

  str  := 'AA12';
  str_char := Copy (str, 1, 2);
  str_num := Copy (str, 3, 2);

  // incremento str_num di una unità
  num := StrToInt (str_num);
  num := num + 1 ;

  // ritrasformo in string
  if ( num >= 100 ) then begin
    num := 0;
    // devo modificare anche str_char
    // prova a farlo tu
  end;


  str_num := IntToStr(num);

  if ( Len(str_num) = 1 ) then
    str_num := '0' + str_num;

  str := str_char + str_num;

end;

ciao
sergio