VPF::Присваивание строковой переменной символы +1

SniyLSD

Дата 15.7.2008, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

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

Код


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

Это сообщение отредактировал(а) SniyLSD - 15.7.2008, 18:41

kemiisto

Дата 15.7.2008, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

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.

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

SniyLSD

Дата 15.7.2008, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) SniyLSD - 15.7.2008, 18:42

kemiisto

Дата 15.7.2008, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: 16
Всего: 160

Цитата(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.

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

SniyLSD

Дата 16.7.2008, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »