Работа со строками...

[KaDima28]

...или как я люблю тупить.

Я знаю что можно было через цикл заполнять массивы, но я попробовал уже вручную но никак не катит.
Вот код:

var sl,sl1:string;
    i,i2:integer;
    numKl:array of string;
    strKl:array of string;
begin
sl:=Edit65.Text;

if sl[2]='-' then begin

numKl[1]:='1';
numKl[2]:='2';
numKl[3]:='3';
numKl[4]:='4';
numKl[5]:='5';
numKl[6]:='6';
numKl[7]:='7';
numKl[8]:='8';
numKl[9]:='9';
numKl[10]:='10';
numKl[11]:='11';
numKl[12]:='12';




strKl[1]:='А';
strKl[2]:='Б';
strKl[3]:='В';
strKl[4]:='Д';

for i:=0 to 4 do
  begin

   if sl[3]=strKl[i] then
    begin

      for i2:=0 to 12 do
        begin

          if sl[1]=numKl[i] then
            begin
              showMessage('PRINATO!!');
            end;

        end;

    end;

  end;

end;

Вот она, та ленивая строчка : if sl[2]='-' then begin

Все норм, компилируется, а вот при нажатии вызывает ошибку.

Спасибо всем, кто Помог!

[blackstrip]

if sl[2]='-' значит, что если второй символ в строке sl (взятой из Edit65.Text) равен тире, то делаем обработку. Если при запуске процедуры в этой строке вылезает ошибка - то значит, возможно второго символа в строке нет. Можно перед этой строкой

if sl[2]='-'

поставить другую строку

if length(sl)<2 then exit;

чтоб проверка на соответствие второго символа символу "тире" даже не начиналась если введенная строка в edit65 короче 2 символов. А т.к. внизу еще и третий символ рассматривается - то можно проверку на длину, не меньшую 3, делать.

А в цикле массивы не заполняются потому что под динамические массивы надо сначала по хорошему выделить память.

SetLength(numKl,13);
for i:=1 to 12 do numKl[1] := IntToStr(i);

А еще проверка sl[1]=numKl[i] непонятно что делает для индексов i=10,11,12, т.к. сравнивает символ со строками "10", "11", "12". Видимо кривовато написан код.

[KaDima28]

Мдаа... А теперь, а ввожу к примеру 5-А и при этом выводиться ошибка которая как-бы в Контрлс из этого кода:

  else if Assigned(FOnClick) then
    FOnClick(Self);
end;

Чет, на end; сердиться.

[XE5]

Чет, на end; сердиться.

Может он лишний? Количество End Равняется количеству begin в пределах процедуры/функции. Считай.

[KaDima28]

??? Я конечно понимаю, но это файл Дельфи. Ну уж не может такого что они ошиблись

P.S.: один end и один begin

[northener]

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

Мдаа... А теперь, а ввожу к примеру 5-А и при этом выводиться ошибка которая как-бы в Контрлс из этого кода:

  else if Assigned(FOnClick) then
    FOnClick(Self);
end;

Чет, на end; сердиться.

Да не сердится она на end
Просто исключение у тебя возникло в обработчике Что-то.OnClick А в этих строчках и происходит вызов этого обработчика.

[KaDima28]

Поменял код. Все-равно:

sl:=Edit65.Text;
if length(sl)<3 then exit;
if sl[2]='-' then begin

numKl[1]:='1';
numKl[2]:='2';
numKl[3]:='3';
numKl[4]:='4';
numKl[5]:='5';
numKl[6]:='6';
numKl[7]:='7';
numKl[8]:='8';
numKl[9]:='9';
//numKl[10]:='10';
//numKl[11]:='11';
//numKl[12]:='12';



strKl[1]:='А';
strKl[2]:='Б';
strKl[3]:='В';
strKl[4]:='Д';

for i:=0 to 4 do
  begin
   if length(sl)<2 then exit;
   if sl[3]=strKl[i] then
    begin

      for i2:=0 to 11 do
        begin
        if length(sl)<2 then exit;
          if sl[1]=numKl[i] then
            begin
              showMessage('PRINATO!!');
            end else exit;

        end

    end else exit;

  end


end;

Я вот тут думаю, может в циклах ФОР нельзя проверять и еще один цикл ФОР ставить.

[Utkin]

Я вот тут думаю, может в циклах ФОР нельзя проверять и еще один цикл ФОР ставить.

У Вас 2-й цикл не влияет на вычисления. Может там в условии i2 должно быть? А так Вы просто одно и то же условие проверяете много раз подряд, что естественно бессмысленно.

[XE5]

Данный код в любом случае будет вываливать ошибки, так как под массивы numKl, и strKl не выделена память. Читаем внимательно пост #2. Как более простой вариант, объявить массивы так.

const
  numKl: array [1..12] of string = ('1', '2', '3', и т.д.);
  strKl:  array  [1..4] of string = ('А', 'Б', 'В', 'Д');
var 
  sl,sl1:string;
  i,i2:integer;
begin

Помним, что если массив объявлен как константа, то менять его содержимое невозможно.

У Вас 2-й цикл не влияет на вычисления

Там и первый цикл ни на что не влияет. Человек вообще не умеет пользоваться циклами.

KaDima28 Озвучьте задачу.