Сравнение поля Edit c текстовым файлом

@Eretick · Регистрация: 03.04.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, возник вот такой вопрос, у меня есть несколько текстов расположенных в поле Memo эти тексты нужно сопоставить с названиями, ответы я реализовал программно(код ниже), но как реализовать что бы ответы сопоставлялись с текстовым файлом, которые есть в текстовом файле. Например я ввел последовательность в Edit1 - 7 (4,8,1,5,7,2,3)произошел процесс обработки, сверки с файлом и произошли действия как в моем коде. Можно не код, а хотя бы темы(В которых присутствует данная ситуация) или ссылки на литературу, которую можно почитать.Заранее спасибо. P.S. ниже приведена форма

Delphi

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.txt');
k:=0;
if(Form8.Edit1.Text='4')then k:=k+1;
if(Form8.Edit2.Text='8')then k:=k+1;
if(Form8.Edit3.Text='1')then k:=k+1;
if(Form8.Edit4.Text='5')then k:=k+1;
if(Form8.Edit5.Text='7')then k:=k+1;
if(Form8.Edit6.Text='2')then k:=k+1;
if(Form8.Edit7.Text='3') then k:=k+1;
Form5.QRLabel2.Caption:=IntToStr(k);
if k=0 then Form5.QRLabel1.Caption:='0 из 7 балов' else
if k=1 then Form5.QRLabel1.Caption:='1 из 7 балов' else
if k=2 then Form5.QRLabel1.Caption:='2 из 7 балов' else
if k=3 then Form5.QRLabel1.Caption:='3 из 7 балов' else
if k=4 then Form5.QRLabel1.Caption:='4 из 7 балов' else
if k=5 then Form5.QRLabel1.Caption:='5 из 7 балов' else
if k=6 then Form5.QRLabel1.Caption:='6 из 7 балов' else
if k=7 then Form5.QRLabel1.Caption:='7 из 7 балов' else
Form8.Edit1.Text:='';
Form8.Edit2.Text:='';
Form8.Edit3.Text:='';
Form8.Edit4.Text:='';
Form8.Edit5.Text:='';
Form8.Edit6.Text:='';
Form8.Edit7.Text:='';
BitBtn4.Visible:=true;
end;

SoftIce · 14.04.2015, 17:01

Не по теме:

Сообщение от Eretick

Delphi

if k=0 then Form5.QRLabel1.Caption:='0 из 7 балов' else
if k=1 then Form5.QRLabel1.Caption:='1 из 7 балов' else
if k=2 then Form5.QRLabel1.Caption:='2 из 7 балов' else
if k=3 then Form5.QRLabel1.Caption:='3 из 7 балов' else
if k=4 then Form5.QRLabel1.Caption:='4 из 7 балов' else
if k=5 then Form5.QRLabel1.Caption:='5 из 7 балов' else
if k=6 then Form5.QRLabel1.Caption:='6 из 7 балов' else
if k=7 then Form5.QRLabel1.Caption:='7 из 7 балов' else

:(

=

Delphi

1	Form5.QRLabel1.Caption:=IntToStr(k)+' из 7 балов';

@Eretick · 14.04.2015, 17:07 **[ТС]**

SoftIce, SoftIce, Спасибо, вы уменьшили мой код на 8 строк, но вопрос еще актуален

@krapotkin · 14.04.2015, 17:16

давай еще сократим )))
Form5.QRLabel1.Caption:= inttostr(k)+' из 7 балов';
и чуть-чуть добавим
Form5.QRLabel1.Caption:= inttostr(k)+' из 7 баллов';

еще сократим везде "Form8." до полного отсутствия этой переменной в обработчике этого класса
а еще можно сократить, если вместо edit воспользоваться StringGrid из 8 ячеек
или сделать array of TEdit

@Eretick 0 / 0 / 0 Регистрация: 03.04.2015 Сообщений: 2
	14.04.2015, 17:07 [ТС]	3
	SoftIce, SoftIce, Спасибо, вы уменьшили мой код на 8 строк, но вопрос еще актуален 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	14.04.2015, 17:16	4
	давай еще сократим ))) Form5.QRLabel1.Caption:= inttostr(k)+' из 7 балов'; и чуть-чуть добавим Form5.QRLabel1.Caption:= inttostr(k)+' из 7 баллов'; еще сократим везде "Form8." до полного отсутствия этой переменной в обработчике этого класса а еще можно сократить, если вместо edit воспользоваться StringGrid из 8 ячеек или сделать array of TEdit 1