[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 вводятся только числа.а если введу буквы ошибку выводит..

[eXplorer]

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

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

это из за этой строчки кода:

Код:

N := StrToInt(Edit1.Text);

так ты сказал если ввели в едит "1" то выводится сообщение "привет" если "2" то "пока" в чем проблема? какие буквы ты в едит вводишь? если надо помимо этого ещё в едит вводить строковые данные какие-то то тогда сделай так:

Код:

begin
if Edit1.Text='1' then
  ShowMessage('Привет')
else
if Edit1.Text='2' then
  ShowMessage('Пока')
else
  ShowMessage('Неизвестное значение');
end;

а вообще лучше поясни задачу толком что бы хоть кто-нибудь понял чего ты хочешь

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

ВОт, я так имел ввиду:

Код:

ini.readstring('main', edit1.text, 'Не определено');

Изобретаете какой-то двух колесный вертолет.

[friz]

наверное парень хочет так:

Код:

var Ts:TstringList;
begin
ts:=Tstringlist.create;
i:=inttostr(edit1.text);
case i of
1:ts.add('ПРИВЕТ');
2:ts.add('ПОКА');
end;
ts.savetofile('c:\file.txt');
ts.free;
end;

в c:\file.txt будет нужный тебе результат