Цитата:
|
Сообщение от 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. Сделать некоторый файл, в котором прописать соответствующие пары "ключ-значение". При старте программы просто читаем этот файл в некоторый, например, массив. Давлее при вводе значения просто выбираем нужную пару, если она есть.
Приципиально разницы между этими способами нет, за исключением того, что в первом случае все заранее определено и не подлежит изменению. Во втором случае программу можно не менять, а список значений изменить в любой момент.