|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
создание текстового файла
как сделать чтобы программа при введении одного значения создавала в текстовый документ одно значение, при введениии другого выдавало другое.например вводишь "1" выдает "привет" вводишь "2" выдает "пока"
|
#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. Сделать некоторый файл, в котором прописать соответствующие пары "ключ-значение". При старте программы просто читаем этот файл в некоторый, например, массив. Давлее при вводе значения просто выбираем нужную пару, если она есть. Приципиально разницы между этими способами нет, за исключением того, что в первом случае все заранее определено и не подлежит изменению. Во втором случае программу можно не менять, а список значений изменить в любой момент. |
#3
|
||||
|
||||
Через INI файл можно.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
Спасибо конечно но сюда буквы не вводятся...
|
#5
|
||||
|
||||
В чем проблема, не пойму. Куда какие буквы не вводятся?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#6
|
|||
|
|||
вообщем в панел tedit вводятся только числа.а если введу буквы ошибку выводит..
|
#7
|
||||
|
||||
Цитата:
это из за этой строчки кода: Код:
N := StrToInt(Edit1.Text); так ты сказал если ввели в едит "1" то выводится сообщение "привет" если "2" то "пока" в чем проблема? какие буквы ты в едит вводишь? если надо помимо этого ещё в едит вводить строковые данные какие-то то тогда сделай так: Код:
begin if Edit1.Text='1' then ShowMessage('Привет') else if Edit1.Text='2' then ShowMessage('Пока') else ShowMessage('Неизвестное значение'); end; а вообще лучше поясни задачу толком что бы хоть кто-нибудь понял чего ты хочешь |
#8
|
||||
|
||||
ВОт, я так имел ввиду:
Код:
ini.readstring('main', edit1.text, 'Не определено'); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
||||
|
||||
наверное парень хочет так:
Код:
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; Последний раз редактировалось Admin, Сегодня в 10:32. |