Кусок кода не хочет работать.

[Yagamy Liet]

Это часть блокнота, в котором можно будет писать русские буквы - у меня на
XP Pro x64 не работает русская кодировка и все сообщения приходиться писaть на
Гугл клавиатуре

 if Ord(Edit1.Text[1]) = 91 then Memo1.Text := Memo1.Text + 'x';

Если код буквы в Edit1 равен 91 тогда в Memo1 дописываем х.
Вроде все идеально, да вот только стоит нажать любую кравишу, как программа вылетает.

[GunSmoker]

Ошибка в 13-й строке.

P.S. Даже ник не смог правильно написать, что уж говорить про программу.

[Пепел Феникса]

короче, весь код выкладывайте, а то хз когда у вас код выполняется, вообще есть событие OnKeyPress и в нем параметр Key это символ нажатый.

[Yagamy Liet]

To GunSmoker
Ха-ха, надо же, даже не знал что про него в Wiki статья есть. Имя писал - как на слух оно звучит в английских
буквах. Жалко только имя профиля исправить нельзя. Пасибо. :-)

Собственно программа:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R  .dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Memo1.Text := '';//Сбоку на Object Inspector нет значения, что бы очистить поле Memo1.Text от его имени. Я уже понял, что попытки
//отыскать эту, в общем-то мелочь опять приведут к многочасовой, бесполезной трате времени и поступил проще.
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Edit1.Text = 'q' then Memo1.Text := Memo1.Text + 'й';
//...//Здесь у меня, в общем повторяется один и тот же код 20 с лишним раз для разных букв
If Edit1.Text = 'm' then Memo1.Text := Memo1.Text + 'ь';
if Ord(Edit1.Text[1]) = 91 then Memo1.Text := Memo1.Text + 'x';//здесь уже посложнее: поскольку в кавычки поставить,
//к примеру ']' нельзя - приходится изощрятся.
Edit1.Text := '';//Очищает поле Edit1.Text. Конечно же лучше сделать прогу с одним только Memo1.Text - я и сделаю, но 
// пока я ее пишу - мне так проще.
end;

end.
Вообще изначально я планировал вместо тупого повторения одного-и-того же оператора сделать подбор букв через два массива,
но после долгого и безполезного поиска: как же пишется забытая мной команда 'lenght(Edit2.Text);' (конечно после того,
как все было сделано, я как видите чисто случайно нашел его) я сделал по другому - как есть.

[GunSmoker]

"Вылетает" - это что конкретно значит? Потому что этот код нормальный, за исключением Edit1.Text[1], которая будет давать исключение при пустом Edit1.

P.S. В чём проблема написать Edit1.Text = '[', я не понял. Также не понял, в чём проблема выделить свойство Lines у Memo в Object Inspector и щёлкнуть по кнопке "...", после чего удалить текст. Равно как и написать (проверки на ошибки убраны):

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  Src = 'qm[';
  Dst = 'йьх';
begin
  Memo1.Text := Memo1.Text + Dst[Pos(Edit1.Text, Src)];
  Edit1.Clear;
end;

P.P.S. Сюда ещё гляньте.

[Пепел Феникса]

предложу такой вариант.
берем у мемо событие OnKeyPress
пишем(использую ваш метод перевода, его измените если что сами)

if Key='q' then Key:='й';

и тд, вот и весь сказ.

[Yagamy Liet]

Потому что этот код нормальный, за исключением Edit1.Text[1], которая будет давать исключение при пустом Edit1.

Странно - попробовал заполнить заранее - теперь все работает.
Странно потому, что сравнение происходит после нажатой клавиши (собственно, когда программа и выдает ошибку),
а ведь в этот момент поле Text занято буквой нажатой клавиши. Или я неправ?

В чём проблема написать Edit1.Text = '[', я не понял

Я же написал к 'примеру'. Ведь кавычку в кавычки поставить не получится.

Также не понял, в чём проблема выделить свойство Lines у Memo

Ну неужели по тому, что я написал трудно было понять, что я не знаю об этом свойстве
(Кстати спасибо, теперь буду знать).

P.P.S. Сюда ещё гляньте.

Вот за это отдельная благодарность.Не буду изобретать велосипед.:-)

предложу такой вариант.

Спасибо, буду знать.

[Пепел Феникса]

в момент события OnKeyPress символ еще не добавлен.

кавычка это ''''(4 кавычки)

[chertovich]

Сообщение от Yagamy Liet

Это часть блокнота, в котором можно будет писать русские буквы - у меня на
XP Pro x64 не работает русская кодировка и все сообщения приходиться писaть на
Гугл клавиатуре

 if Ord(Edit1.Text[1]) = 91 then Memo1.Text := Memo1.Text + 'x';

Если код буквы в Edit1 равен 91 тогда в Memo1 дописываем х.
Вроде все идеально, да вот только стоит нажать любую кравишу, как программа вылетает.

Я только не могу понять, как может не работать кодировка? в Unicode есть все языки.... причем и русский.
Может тебе раскладку русской поставить?

[GunSmoker]

Сообщение от Yagamy Liet

Ведь кавычку в кавычки поставить не получится.

Отчего же:

If Edit1.Text = '''' then Memo1.Text := Memo1.Text + 'э';

Сообщение от Yagamy Liet

Ну неужели по тому, что я написал трудно было понять, что я не знаю об этом свойстве.

Можно было. Но вот почему вы считаете нормальным при этом ругать "кривую среду", "тупых разработчиков" - не понятно совершенно. Сами ведь не удосужились ни книжку открыть, ни справку.