[91alexey]

как сделать чтобы программа при введении одного значения создавала в текстовый документ одно значение, при введениии другого выдавало другое.например вводишь "1" выдает "привет" вводишь "2" выдает "пока"

[lmikle]

Сообщение от 91alexey

как сделать чтобы программа при введении одного значения создавала в текстовый документ одно значение, при введениии другого выдавало другое.например вводишь "1" выдает "привет" вводишь "2" выдает "пока"

Есть 2 варианта.
1. Прописать все в коде.

Код:

procedure TForm1.Buttin1Click(Sender : TObject);
var
  N : Integer;
begin
  Try
     N := StrToInt(Edit1.Text);
     Case N Of
       1 : ShowMessage('Привет');
       2 : ShowMessage('Пока');
       Else Raise Exception.Create('Unknown');
     End;
  Except
    ShowMessage('Неизвестное значение');
  End;
end;

Здесь выводится на экран, но это, как ты плонимаешь, не приципиально.
Просто заместо ShowMessage надо будет вызвать процедуру, которая создаст файл с переданным значением (самописную, конечно, но там не сложно и в любом учебнике ты пример найдешь).

2. Сделать некоторый файл, в котором прописать соответствующие пары "ключ-значение". При старте программы просто читаем этот файл в некоторый, например, массив. Давлее при вводе значения просто выбираем нужную пару, если она есть.

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

[M.A.D.M.A.N.]

Через INI файл можно.

[91alexey]

Спасибо конечно но сюда буквы не вводятся...

[M.A.D.M.A.N.]

В чем проблема, не пойму. Куда какие буквы не вводятся?

[91alexey]

вообщем в панел tedit вводятся только числа.а если введу буквы ошибку выводит..