Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Присваивание строковой переменной символы +1

Автор: SniyLSD 15.7.2008, 18:10

Снова здравствуйте! Такой вопрос - как сделать, чтобы присваивать строковой переменной символ, который выше предыдущего по статусу.
Вроде так :

Код


 k:='a';
 for i:=0 to n do
 begin
  write (k);
  k:=/////'a'+1:='b'; {ну короче такой результат мне нужен};
end;

Автор: kemiisto 15.7.2008, 18:20

SniyLSD, ничерта не понял! Попробу угадать:

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  k: Char;
  i: Integer;

begin
  k:='a';
  for i := 0 to 10 do
  begin
    Write(k);
    k := Chr(Ord(k) + 1);
  end;
  Readln;
end.

Автор: SniyLSD 15.7.2008, 18:29

Почти так вроде, но как такое проделать c переменной string типа?

Автор: kemiisto 15.7.2008, 18:48

Цитата(SniyLSD @ 15.7.2008, 19:29

)

Почти так вроде, но как такое проделать c переменной string типа?

А как Вы себе такое представляете? С сиволами понятно, существуют кодовые таблицы. Или у Вас в строке только один символ? Тогда в символьную переменную его и Ord.

Добавлено через 7 минут и 5 секунд

Код


uses
  SysUtils;

var
  s: String;
  i: Integer;

begin
  s := 'a';
  for i := 0 to 10 do
  begin
    Write(s);
    s[1] := Chr(Ord(s[1]) + 1);
  end;
  Readln;
end.

И так вот тоже можно:

Код


uses
  SysUtils;

var
  s: String;
  i: Integer;

begin
  s := 'a';
  for i := 0 to 10 do
  begin
    Write(s);
    s := Chr(Ord(s[1]) + 1);
  end;
  Readln;
end.

Автор: SniyLSD 16.7.2008, 12:25

Спасибо! Уже разобрался)