Работа с циклом на проверку Tedit

@iLisenoki · Регистрация: 14.05.2018

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

В общем я делаю диплом и осталось последнее задача , сделать что бы при вводе слова в Tedit(их у меня 8 штук) если она не правильно то Label рядом с полем меняет цвет. Как этот цикл я знаю делать, это вот обычный цикл на проверку правильности слов:

Delphi

if (edit1.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit1.Text ='Хозяйственное товарищество') or
    (edit1.Text ='хозяйственное товарищество') or
    (edit1.Text ='хозяйственные товарищества') then inc(shema);
 if (edit1.Text ='Производственные кооперативы') or
    (edit1.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit1.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit1.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit1.Text ='крестьянские (фермерские) хозяйства') or
     (edit1.Text ='крестьянские(фермерские) хозяйства')  or
     (edit1.Text ='Крестьянские хозяйства')  or
     (edit1.Text ='крестьянские хозяйства')  or
     (edit1.Text ='фермерские хозяйства')    or
     (edit1.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit1.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit1.Text ='унитарные предприятия')  then inc(shema);
 if (edit1.Text ='Общественные организации') or                //Общественные организации
    (edit1.Text ='общественные организации') then  inc(shema);
 if (edit1.Text ='Религиозные организации') or                  //Религиозные организации
    (edit1.Text ='религиозные организации') then  inc(shema);
 if (edit1.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit1.Text ='хозяйственные общества') then inc(shema);
 if (edit1.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit1.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit2.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit2.Text ='Хозяйственное товарищество') or
    (edit2.Text ='хозяйственное товарищество') or
    (edit2.Text ='хозяйственные товарищества') then inc(shema);
 if (edit2.Text ='Производственные кооперативы') or
    (edit2.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit2.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit2.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit2.Text ='крестьянские (фермерские) хозяйства') or
     (edit2.Text ='крестьянские(фермерские) хозяйства')  or
     (edit2.Text ='Крестьянские хозяйства')  or
     (edit2.Text ='крестьянские хозяйства')  or
     (edit2.Text ='фермерские хозяйства')    or
     (edit2.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit2.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit2.Text ='унитарные предприятия')  then inc(shema);
 if (edit2.Text ='Общественные организации') or                //Общественные организации
    (edit2.Text ='общественные организации') then  inc(shema);
 if (edit2.Text ='Религиозные организации') or                  //Религиозные организации
    (edit2.Text ='религиозные организации') then  inc(shema);
 if (edit2.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit2.Text ='хозяйственные общества') then inc(shema);
 if (edit2.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit2.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit3.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit3.Text ='Хозяйственное товарищество') or
    (edit3.Text ='хозяйственное товарищество') or
    (edit3.Text ='хозяйственные товарищества') then inc(shema);
 if (edit3.Text ='Производственные кооперативы') or
    (edit3.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit3.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit3.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit3.Text ='крестьянские (фермерские) хозяйства') or
     (edit3.Text ='крестьянские(фермерские) хозяйства')  or
     (edit3.Text ='Крестьянские хозяйства')  or
     (edit3.Text ='крестьянские хозяйства')  or
     (edit3.Text ='фермерские хозяйства')    or
     (edit3.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit3.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit3.Text ='унитарные предприятия')  then inc(shema);
 if (edit3.Text ='Общественные организации') or                //Общественные организации
    (edit3.Text ='общественные организации') then  inc(shema);
 if (edit3.Text ='Религиозные организации') or                  //Религиозные организации
    (edit3.Text ='религиозные организации') then  inc(shema);
 if (edit3.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit3.Text ='хозяйственные общества') then inc(shema);
 if (edit3.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit3.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit4.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit4.Text ='Хозяйственное товарищество') or
    (edit4.Text ='хозяйственное товарищество') or
    (edit4.Text ='хозяйственные товарищества') then inc(shema);
 if (edit4.Text ='Производственные кооперативы') or
    (edit4.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit4.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit4.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit4.Text ='крестьянские (фермерские) хозяйства') or
     (edit4.Text ='крестьянские(фермерские) хозяйства')  or
     (edit4.Text ='Крестьянские хозяйства')  or
     (edit4.Text ='крестьянские хозяйства')  or
     (edit4.Text ='фермерские хозяйства')    or
     (edit4.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit4.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit4.Text ='унитарные предприятия')  then inc(ball);
 if (edit4.Text ='Общественные организации') or                //Общественные организации
    (edit4.Text ='общественные организации') then  inc(shema);
 if (edit4.Text ='Религиозные организации') or                  //Религиозные организации
    (edit4.Text ='религиозные организации') then  inc(shema);
 if (edit4.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit4.Text ='хозяйственные общества') then inc(shema);
 if (edit4.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit4.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit5.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit5.Text ='Хозяйственное товарищество') or
    (edit5.Text ='хозяйственное товарищество') or
    (edit5.Text ='хозяйственные товарищества') then inc(shema);
 if (edit5.Text ='Производственные кооперативы') or
    (edit5.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit5.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit5.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit5.Text ='крестьянские (фермерские) хозяйства') or
     (edit5.Text ='крестьянские(фермерские) хозяйства')  or
     (edit5.Text ='Крестьянские хозяйства')  or
     (edit5.Text ='крестьянские хозяйства')  or
     (edit5.Text ='фермерские хозяйства')    or
     (edit5.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit5.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit5.Text ='унитарные предприятия')  then inc(shema);
 if (edit5.Text ='Общественные организации') or                //Общественные организации
    (edit5.Text ='общественные организации') then  inc(shema);
 if (edit5.Text ='Религиозные организации') or                  //Религиозные организации
    (edit5.Text ='религиозные организации') then  inc(shema);
 if (edit5.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit5.Text ='хозяйственные общества') then inc(shema);
 if (edit5.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit5.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit6.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit6.Text ='Хозяйственное товарищество') or
    (edit6.Text ='хозяйственное товарищество') or
    (edit6.Text ='хозяйственные товарищества') then inc(shema);
 if (edit6.Text ='Производственные кооперативы') or
    (edit6.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit6.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit6.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit6.Text ='крестьянские (фермерские) хозяйства') or
     (edit6.Text ='крестьянские(фермерские) хозяйства')  or
     (edit6.Text ='Крестьянские хозяйства')  or
     (edit6.Text ='крестьянские хозяйства')  or
     (edit6.Text ='фермерские хозяйства')    or
     (edit6.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit6.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit6.Text ='унитарные предприятия')  then inc(shema);
 if (edit6.Text ='Общественные организации') or                //Общественные организации
    (edit6.Text ='общественные организации') then  inc(shema);
 if (edit6.Text ='Религиозные организации') or                  //Религиозные организации
    (edit6.Text ='религиозные организации') then  inc(shema);
 if (edit6.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit6.Text ='хозяйственные общества') then inc(shema);
 if (edit6.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit6.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit7.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit7.Text ='Хозяйственное товарищество') or
    (edit7.Text ='хозяйственное товарищество') or
    (edit7.Text ='хозяйственные товарищества') then inc(shema);
 if (edit7.Text ='Производственные кооперативы') or
    (edit7.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit7.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit7.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit7.Text ='крестьянские (фермерские) хозяйства') or
     (edit7.Text ='крестьянские(фермерские) хозяйства')  or
     (edit7.Text ='Крестьянские хозяйства')  or
     (edit7.Text ='крестьянские хозяйства')  or
     (edit7.Text ='фермерские хозяйства')    or
     (edit7.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit7.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit7.Text ='унитарные предприятия')  then inc(shema);
 if (edit7.Text ='Общественные организации') or                //Общественные организации
    (edit7.Text ='общественные организации') then  inc(shema);
 if (edit7.Text ='Религиозные организации') or                  //Религиозные организации
    (edit7.Text ='религиозные организации') then  inc(shema);
 if (edit7.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit7.Text ='хозяйственные общества') then inc(shema);
 if (edit7.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit7.Text ='потребительские кооперативы') then  inc(shema);
 
 if (edit8.Text ='Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit8.Text ='Хозяйственное товарищество') or
    (edit8.Text ='хозяйственное товарищество') or
    (edit8.Text ='хозяйственные товарищества') then inc(shema);
 if (edit8.Text ='Производственные кооперативы') or
    (edit8.Text ='производственные кооперативы') then inc(shema); // Производственные кооперативы
 if (edit8.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit8.Text ='Крестьянские(фермерские) хозяйства')  or
     (edit8.Text ='крестьянские (фермерские) хозяйства') or
     (edit8.Text ='крестьянские(фермерские) хозяйства')  or
     (edit8.Text ='Крестьянские хозяйства')  or
     (edit8.Text ='крестьянские хозяйства')  or
     (edit8.Text ='фермерские хозяйства')    or
     (edit8.Text ='Фермерские хозяйства')  then inc(shema);
 if (edit8.Text ='Унитарные предприятия') or                 //Унитарные предприятия
    (edit8.Text ='унитарные предприятия')  then inc(shema);
 if (edit8.Text ='Общественные организации') or                //Общественные организации
    (edit8.Text ='общественные организации') then  inc(shema);
 if (edit8.Text ='Религиозные организации') or                  //Религиозные организации
    (edit8.Text ='религиозные организации') then  inc(shema);
 if (edit8.Text ='Хозяйственные общества') or                  //Хозяйственные общества
    (edit8.Text ='хозяйственные общества') then inc(shema);
 if (edit8.Text ='Потребительские кооперативы') or            //Потребительские кооперативы
    (edit8.Text ='потребительские кооперативы') then  inc(shema);
 
 
 
 ShowMessage('Правильно заполнил '+IntToStr(shema)+' из 8-ми слов');

как сделать цикл если ввели неправильное слово то меняется цвет label?
Пробовал вот так сделать

Delphi

if not (edit1.Text <>'Хозяйственные товарищества') or       //Хозяйственные товарищества
    (edit1.Text <>'Хозяйственное товарищество') or
    (edit1.Text <>'хозяйственное товарищество') or
    (edit1.Text <>'хозяйственные товарищества') or
  (edit1.Text <>'Производственные кооперативы') or
    (edit1.Text <>'производственные кооперативы') or
  (edit1.Text ='Крестьянские (фермерские) хозяйства') or   //Крестьянские (фермерские) хозяйства
     (edit1.Text <>'Крестьянские(фермерские) хозяйства')  or
     (edit1.Text <>'крестьянские (фермерские) хозяйства') or
     (edit1.Text <>'крестьянские(фермерские) хозяйства')  xor
     (edit1.Text <>'Крестьянские хозяйства') or
     (edit1.Text <>'крестьянские хозяйства')  or
     (edit1.Text <>'фермерские хозяйства')    or
     (edit1.Text <>'Фермерские хозяйства')  or
     (edit1.Text <>'Унитарные предприятия') or                 //Унитарные предприятия
     (edit1.Text <>'унитарные предприятия') or
     (edit1.Text <>'Общественные организации') or                //Общественные организации
    (edit1.Text <>'общественные организации') or
  (edit1.Text <>'Религиозные организации') or                  //Религиозные организации
    (edit1.Text <>'религиозные организации') or
  (edit1.Text <>'Хозяйственные общества')or                  //Хозяйственные общества
    (edit1.Text <>'хозяйственные общества') or
  (edit1.Text <>'Потребительские кооперативы') or            //Потребительские кооперативы
    (edit1.Text <> 'потребительские кооперативы') then  label3.Font.Color:=Clred;

Но косяк в том что если ввожу верные слова , он все равно перекрашивает label будто ответ был неверный

DenNik · 12.06.2020, 14:33

какая жуть!

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    function StringExists(const str: string): boolean;
  end;
 
var
  Form1: TForm1;
  list: TStrings;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringExists(Edit1.Text)
    then Label1.Font.Color:= clGreen
    else Label1.Font.Color:= clRed;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  list.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  list:= TStringList.Create;
  list.Add('Хозяйственные товарищества');
  list.Add('Производственные кооперативы');
  list.Add('Крестьянские хозяйства');
  list.Add('Потребительские кооперативы');
  list.Add('Унитарные предприятия');
  Memo1.Lines.Assign(list);
end;
 
function TForm1.StringExists(const str: string): boolean;
var
  s: string;
begin
  // поиск строки в списке
  Result:= false;
  for s in list do
  if AnsiCompareText(AnsiUpperCase(str),AnsiUpperCase(s)) = 0 then
  begin
    Result:= true;
    Break;
  end;
end;
 
end.

DenNik · 12.06.2020, 14:42

сомневался насчёт регистрозависимости метода IndexOf. погуглил.. ниже более простой вариант

Delphi

var
  Form1: TForm1;
  list: TStringList;  // <===================================
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringExists(Edit1.Text)
    then Label1.Font.Color:= clGreen
    else Label1.Font.Color:= clRed;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  list.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  list:= TStringList.Create;
  list.Add('Хозяйственные товарищества');
  list.Add('Производственные кооперативы');
  list.Add('Крестьянские хозяйства');
  list.Add('Потребительские кооперативы');
  list.Add('Унитарные предприятия');
  Memo1.Lines.Assign(list);
  list.CaseSensitive:= false;   // <===================================
end;
 
function TForm1.StringExists(const str: string): boolean;
begin
  // поиск строки в списке
  Result:= list.IndexOf(str) <> -1;  // ПЕРЕДЕЛАТЬ
end;

Добавлено через 3 минуты
Хах! Оказывается, CaseSensitive по умолчанию = false;

@iLisenoki · 12.06.2020, 15:32 **[ТС]**

DenNik такс, а в мемо обязательно добавлять? Просто если да то придется мемо добавить на форму в режиме невидимости

@northener · 12.06.2020, 15:37

Не по теме:

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

такс, а в мемо обязательно добавлять?

И это пишет тот, кто

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

делаю диплом и осталось последнее задача

@iLisenoki · 12.06.2020, 15:47 **[ТС]**

northener если решился докапатся , то скажу что в delphi не работаю , работаю в ASP.net

DenNik · 12.06.2020, 15:49

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

а в мемо обязательно добавлять?

нет. это для наглядности

Добавлено через 35 секунд

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

мемо ... в режиме невидимости

- это список TStringList

@Пытливый · 12.06.2020, 15:50

Я правильно понял, что пользователь должен написать фразы:

Крестьянские (фермерские) хозяйства
Хозяйственные общества

без ошибок, в правильном порядке, да еще в правильном падеже? Пользователи вас проклянут и правильно сделают.

@iLisenoki · 12.06.2020, 15:58 **[ТС]**

Пытливый 1 из слов верно засчитает , и я хотел только спроситьь как сдлеать неверные значения что бы красило лейбл , все

Добавлено через 5 минут
DenNik а можешь сказать TForm1.StringExists, что это ? Это переименованный Tedit? Просто я вижу что это функция которая в привате , но типо у меня все равно ошибка в проекте т.к. не известный коспонент

@northener · 12.06.2020, 16:01

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

можешь сказать TForm1.StringExists, что это ?

См. сообщение #2

@iLisenoki · 12.06.2020, 16:04 **[ТС]**

northener все равно одинаковая ошибка

DenNik · 12.06.2020, 16:21

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

TForm1.StringExists

это user-defined (пользовательская) функция, которую я описал для нужд текущего проекта. разве в ASP.net нет пользовательских подпрограмм? это же база любого ЯП!

@iLisenoki · 12.06.2020, 16:33 **[ТС]**

DenNik я твою функцию вписывал , это ошибка я не знаю с чего лезет

@northener · 12.06.2020, 16:37

Неправильно вписал

@iLisenoki · 12.06.2020, 16:44 **[ТС]**

northener и куда вписывать? я могу весь код скинуть как у меня все написано, если надо

@northener · 12.06.2020, 16:47

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

northener и куда вписывать?

Delphi

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    function StringExists(const str: string): boolean;  //Вот сюда
  end;

@iLisenoki · 12.06.2020, 16:51 **[ТС]**

northener Скажу по приколу, она там и стоит

@Пытливый · 12.06.2020, 16:55

Покажите код процедуры, где присутствует эта ошибочная 74 строка.

@northener · 12.06.2020, 16:55

Тогда прикладывай архив с проектом

@iLisenoki · 12.06.2020, 16:58 **[ТС]**

ну вот это строчка

@northener пофигист широкого профиля 4750 / 3185 / 861 Регистрация: 15.07.2013 Сообщений: 18,412
	12.06.2020, 16:01	10
	Сообщение от iLisenoki можешь сказать TForm1.StringExists, что это ? См. сообщение #2 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 16:04 [ТС]	11
	northener все равно одинаковая ошибка Миниатюры 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 16:33 [ТС]	13
	DenNik я твою функцию вписывал , это ошибка я не знаю с чего лезет 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 16:51 [ТС]	17
	northener Скажу по приколу, она там и стоит Миниатюры 0

@northener пофигист широкого профиля 4750 / 3185 / 861 Регистрация: 15.07.2013 Сообщений: 18,412
	12.06.2020, 16:55	19
	Тогда прикладывай архив с проектом 0

Работа с циклом на проверку Tedit

Решение

Решение

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 15:32 [ТС]	4
	DenNik такс, а в мемо обязательно добавлять? Просто если да то придется мемо добавить на форму в режиме невидимости 0

@northener пофигист широкого профиля 4750 / 3185 / 861 Регистрация: 15.07.2013 Сообщений: 18,412
	12.06.2020, 15:37	5
	Не по теме: Сообщение от iLisenoki такс, а в мемо обязательно добавлять? И это пишет тот, кто Сообщение от iLisenoki делаю диплом и осталось последнее задача 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 15:47 [ТС]	6
	northener если решился докапатся , то скажу что в delphi не работаю , работаю в ASP.net 0

DenNik Житель Земли 3003 / 3005 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	12.06.2020, 15:49	7
	Сообщение от iLisenoki а в мемо обязательно добавлять? нет. это для наглядности Добавлено через 35 секунд Сообщение от iLisenoki мемо ... в режиме невидимости - это список TStringList 0

@Пытливый 3756 / 2261 / 703 Регистрация: 29.05.2013 Сообщений: 9,593
	12.06.2020, 15:50	8
	Я правильно понял, что пользователь должен написать фразы: Крестьянские (фермерские) хозяйства Хозяйственные общества без ошибок, в правильном порядке, да еще в правильном падеже? Пользователи вас проклянут и правильно сделают. 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 15:58 [ТС]	9
	Пытливый 1 из слов верно засчитает , и я хотел только спроситьь как сдлеать неверные значения что бы красило лейбл , все Добавлено через 5 минут DenNik а можешь сказать TForm1.StringExists, что это ? Это переименованный Tedit? Просто я вижу что это функция которая в привате , но типо у меня все равно ошибка в проекте т.к. не известный коспонент 0

DenNik Житель Земли 3003 / 3005 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	12.06.2020, 16:21	12
	Сообщение от iLisenoki TForm1.StringExists это user-defined (пользовательская) функция, которую я описал для нужд текущего проекта. разве в ASP.net нет пользовательских подпрограмм? это же база любого ЯП! 0

@northener пофигист широкого профиля 4750 / 3185 / 861 Регистрация: 15.07.2013 Сообщений: 18,412
	12.06.2020, 16:37	14
	Неправильно вписал 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 16:44 [ТС]	15
	northener и куда вписывать? я могу весь код скинуть как у меня все написано, если надо 0

@iLisenoki 0 / 0 / 0 Регистрация: 14.05.2018 Сообщений: 32
	12.06.2020, 16:58 [ТС]	20
	ну вот это строчка Миниатюры 0