Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Условие if - then - else неправильно срабатывает / 25 сообщений из 27, страница 1 из 2
  1  все
05.07.2017, 12:48:10
    #39483108
Gallemar
Gallemar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Цикл проходит до конца и выполняются все действия

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
procedure TForm1.Button1Click(Sender: TObject);
var
List1: TStringList;
t: integer;
n: string;
ConfigIni : tinifile;

begin
List1:=TStringList.Create;
List1.LoadFromFile('c:\S-Market\CalcPart.log');
for t:=List1.count-1  downto 0 do
     begin
         Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
        if   pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0
          then
    begin
      Memo2.Lines.Add(List1.Strings[t]);
      n:= copy(List1.Strings[t],pos('252',List1.Strings[t]), 6);
      label1.Caption := trim(n);
      label2.Caption :=  inttostr( length(n));
    end
          else
  begin
          Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
        if   pos('fmMainForm.pfCalcPart:',List1.Strings[t] ) <> 0
  then
       begin
          Memo2.Lines.Add(List1.Strings[t]);
          Memo2.Lines.Add(List1.Strings[t-1]);
          n:= copy(List1.Strings[t-1],pos('l=',List1.Strings[t-1])+2, 6);
          label1.Caption := trim(n);
          label2.Caption :=  inttostr( length(n));
          ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
          ConfigIni.WriteString('TfmMainForm','edFirstArticul_Text',n);
          ConfigIni.WriteString('TfmMainForm','chbFirstArticul_Checked','True');
          ConfigIni.Free;
       end;
    end;
  end;
end;



срабатывает
Код: pascal
1.
if   pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0


выполняет
Код: pascal
1.
2.
3.
4.
5.
6.
begin
      Memo2.Lines.Add(List1.Strings[t]);
      n:= copy(List1.Strings[t],pos('252',List1.Strings[t]), 6);
      label1.Caption := trim(n);
      label2.Caption :=  inttostr( length(n));
    end



потом

Код: pascal
1.
2.
  Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
    if   pos('fmMainForm.pfCalcPart:',List1.Strings[t] ) <> 0



и выполняется
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
 begin
      Memo2.Lines.Add(List1.Strings[t]);
      Memo2.Lines.Add(List1.Strings[t-1]);
      n:= copy(List1.Strings[t-1],pos('l=',List1.Strings[t-1])+2, 6);
      label1.Caption := trim(n);
      label2.Caption :=  inttostr( length(n));
      ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
      ConfigIni.WriteString('TfmMainForm','edFirstArticul_Text',n);
      ConfigIni.WriteString('TfmMainForm','chbFirstArticul_Checked','True');
      ConfigIni.Free;
       end;


а мне надо если нашел
Код: pascal
1.
if   pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0


то дальше ничего не делает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:03:13
    #39483117
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure TForm1.Button1Click(Sender: TObject);
var
List1: TStringList;
t: integer;
n: string;
ConfigIni : tinifile;

begin
List1:=TStringList.Create;
List1.LoadFromFile('c:\S-Market\CalcPart.log');
for t:=List1.count-1  downto 0 do
 begin
         Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
         if   pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0 then Continue ;
         { а тут всё остальное }  
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:14:09
    #39483127
Квейд
Квейд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Gallemar, а ты форматировать код не пробовал?
У меня лопнули глаза, пока я искал какой у тебя else от какого if.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:17:01
    #39483128
Bred eFeM
Bred eFeM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Gallemarто дальше ничего не делает
Код: pascal
1.
if pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0 then Break; { ExitProcess(0); ! }
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:18:22
    #39483129
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Bred eFeMGallemarто дальше ничего не делает
Код: pascal
1.
if pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0 then Break; { ExitProcess(0); ! }



нигде не написано, что надо выходить из цикла насовсем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:25:29
    #39483133
Valery_B
Valery_B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Квейд,

Всё верно, все признаки г-кода на лицо.
Автор сам не понимает, что происходит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:39:30
    #39483144
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Форматирую, вывожу из запоя. Дорого.

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
procedure TForm1.Button1Click(Sender: TObject);
var
		List1: TStringList;
		t: integer;
		n: string;
		ConfigIni : tinifile;

begin
		List1:=TStringList.Create;
		List1.LoadFromFile('c:\S-Market\CalcPart.log');
		for t:=List1.count-1  downto 0 do begin
    		Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
        if pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0 then begin
      			Memo2.Lines.Add(List1.Strings[t]);
      			n:= copy(List1.Strings[t],pos('252',List1.Strings[t]), 6);
      			label1.Caption := trim(n);
      			label2.Caption :=  inttostr( length(n));
    		end else begin
          	Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
        		if pos('fmMainForm.pfCalcPart:',List1.Strings[t] ) <> 0 then begin
          			Memo2.Lines.Add(List1.Strings[t]);
          			Memo2.Lines.Add(List1.Strings[t-1]);
          			n:= copy(List1.Strings[t-1],pos('l=',List1.Strings[t-1])+2, 6);
          			label1.Caption := trim(n);
                label2.Caption :=  inttostr( length(n));
          			ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
          			ConfigIni.WriteString('TfmMainForm','edFirstArticul_Text',n);
          			ConfigIni.WriteString('TfmMainForm','chbFirstArticul_Checked','True');
          			ConfigIni.Free;
       			end;
    		end;
  	end;
end;

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:42:55
    #39483147
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Ха, местный формттер ломается от табов. :) Так что у ТС может и выглядит все красиво...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:44:03
    #39483148
Valery_B
Valery_B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
wadman,

Надо форматировать по правому краю экрана, а не по центру.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:49:04
    #39483152
mvb
mvb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
 
CnPack лучше форматирует
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
procedure TForm1.FormCreate(Sender: TObject);
var
  List1: TStringList;
  t: integer;
  n: string;
  ConfigIni: tinifile;
begin
  List1 := TStringList.Create;
  List1.LoadFromFile('c:\S-Market\CalcPart.log');
  for t := List1.count - 1 downto 0 do
  begin
    Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
    if pos('&#207;&#224;&#240;&#242;&#232;&#238;&#237;&#237;&#251;&#233; &#243;&#247;&#184;&#242; &#243;&#241;&#239;&#229;&#248;&#237;&#238; &#239;&#229;&#240;&#229;&#241;&#247;&#232;&#242;&#224;&#237;:', List1.Strings[t]) <> 0 then
    begin
      Memo2.Lines.Add(List1.Strings[t]);
      n := copy(List1.Strings[t], pos('252', List1.Strings[t]), 6);
      label1.Caption := trim(n);
      label2.Caption := inttostr(length(n));
    end
    else
    begin
      Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
      if pos('fmMainForm.pfCalcPart:', List1.Strings[t]) <> 0 then
      begin
        Memo2.Lines.Add(List1.Strings[t]);
        Memo2.Lines.Add(List1.Strings[t - 1]);
        n := copy(List1.Strings[t - 1], pos('l=', List1.Strings[t - 1]) + 2, 6);
        label1.Caption := trim(n);
        label2.Caption := inttostr(length(n));
        ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
        ConfigIni.WriteString('TfmMainForm', 'edFirstArticul_Text', n);
        ConfigIni.WriteString('TfmMainForm', 'chbFirstArticul_Checked', 'True');
        ConfigIni.Free;
      end;
    end;
  end;
end;

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 13:52:31
    #39483155
Квейд
Квейд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
mvb
 
CnPack лучше форматирует
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
procedure TForm1.FormCreate(Sender: TObject);
var
  List1: TStringList;
  t: integer;
  n: string;
  ConfigIni: tinifile;
begin
  List1 := TStringList.Create;
  List1.LoadFromFile('c:\S-Market\CalcPart.log');
  for t := List1.count - 1 downto 0 do
  begin
    Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
    if pos('&#207;&#224;&#240;&#242;&#232;&#238;&#237;&#237;&#251;&#233; &#243;&#247;&#184;&#242; &#243;&#241;&#239;&#229;&#248;&#237;&#238; &#239;&#229;&#240;&#229;&#241;&#247;&#232;&#242;&#224;&#237;:', List1.Strings[t]) <> 0 then
    begin
      Memo2.Lines.Add(List1.Strings[t]);
      n := copy(List1.Strings[t], pos('252', List1.Strings[t]), 6);
      label1.Caption := trim(n);
      label2.Caption := inttostr(length(n));
    end
    else
    begin
      Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
      if pos('fmMainForm.pfCalcPart:', List1.Strings[t]) <> 0 then
      begin
        Memo2.Lines.Add(List1.Strings[t]);
        Memo2.Lines.Add(List1.Strings[t - 1]);
        n := copy(List1.Strings[t - 1], pos('l=', List1.Strings[t - 1]) + 2, 6);
        label1.Caption := trim(n);
        label2.Caption := inttostr(length(n));
        ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
        ConfigIni.WriteString('TfmMainForm', 'edFirstArticul_Text', n);
        ConfigIni.WriteString('TfmMainForm', 'chbFirstArticul_Checked', 'True');
        ConfigIni.Free;
      end;
    end;
  end;
end;

Фух, наконец-то это можно читать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 14:13:52
    #39483168
schi
schi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
Вот это - правильное форматирование:

 

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure   TForm1.Button1Click (Sender:   TObject); var   List1:   TStringList;
t: integer;  n: string;  ConfigIni : tinifile; begin  List1:=TStringList.Create;
List1.LoadFromFile( 'c:\S-Market\CalcPart.log');  for t:=List1.count-1  downto 0
do  begin  Memo1.Lines.Add ( inttostr(t) + ' ' +  List1.Strings [ t] ); if  pos(
'Партионный учёт успешно пересчитан:',  List1.Strings [ t] )  <>  0  then  begin 
Memo2.Lines.Add ( List1.Strings [ t]);  n := copy ( List1.Strings[t], pos('252',
List1.Strings   [ t ]), 6  );  label1.Caption :=  trim ( n );  label2.Caption := 
inttostr ( length (n ) ); end  else  begin  Memo1.Lines.Add( inttostr(t) + ' ' + 
List1.Strings [ t]);if pos('fmMainForm.pfCalcPart:',List1.Strings[t] ) <> 0 then
begin Memo2.Lines.Add (List1.Strings [ t]); Memo2.Lines.Add(List1.Strings[t-1]);
n:= copy( List1.Strings[ t-1],pos('l=',List1.Strings[t-1])+2, 6); label1.Caption 
:=   trim   ( n  );   label2.Caption :=  inttostr ( length ( n ) ); ConfigIni := 
TIniFile.Create     (   'c:\S-Market\CalcPart.ini' );   ConfigIni.WriteString  (
 'TfmMainForm', 'edFirstArticul_Text', n);  ConfigIni.WriteString('TfmMainForm',
'chbFirstArticul_Checked',  'True');  ConfigIni.Free;  end ;  end ;  end ; end ;

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 14:27:10
    #39483183
Valery_B
Valery_B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
schi,

Тебе надо запатентовать данный стиль форматирования.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 14:33:06
    #39483192
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
schiВот это - правильное форматирование:
Слабенько...
 
Код: pascal
1.
procedure TForm1.FormCreate(Sender:TObject);var TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt:TStringList;wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR:integer;qkYiYsYxBX:string;bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf:tinifile;begin TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt:=TStringList.Create;TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.LoadFromFile(#99#58#92#83#45#77#97#114#107#101#116#92#67#97#108#99#80#97#114#116#46#108#111#103);for wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR:=TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.count-(((((((((0+(0*3+1))))))))))downto (((((((((-1+(0*3+1))))))))))do begin Memo1.Lines.Add(inttostr(wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR)+''+TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);if pos(#38#35#50#48#55#59#38#35#50#50#52#59#38#35#50#52#48#59#38#35#50#52#50#59#38#35#50#51#50#59#38#35#50#51#56#59#38#35#50#51#55#59#38#35#50#51#55#59#38#35#50#53#49#59#38#35#50#51#51#59#32#38#35#50#52#51#59#38#35#50#52#55#59#38#35#49#56#52#59#38#35#50#52#50#59#32#38#35#50#52#51#59#38#35#50#52#49#59#38#35#50#51#57#59#38#35#50#50#57#59#38#35#50#52#56#59#38#35#50#51#55#59#38#35#50#51#56#59#32#38#35#50#51#57#59#38#35#50#50#57#59#38#35#50#52#48#59#38#35#50#50#57#59#38#35#50#52#49#59#38#35#50#52#55#59#38#35#50#51#50#59#38#35#50#52#50#59#38#35#50#50#52#59#38#35#50#51#55#59#58,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR])<>(((((((((-1+(0*3+1))))))))))then begin Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);qkYiYsYxBX:=copy(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR],pos(#50#53#50,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]),(((((((((5+(0*3+1)))))))))));label1.Caption:=trim(qkYiYsYxBX);label2.Caption:=inttostr(length(qkYiYsYxBX));end else begin Memo1.Lines.Add(inttostr(wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR)+''+TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);if pos(#102#109#77#97#105#110#70#111#114#109#46#112#102#67#97#108#99#80#97#114#116#58,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR])<>(((((((((-1+(0*3+1))))))))))then begin Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))]);qkYiYsYxBX:=copy(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))],pos(#108#61,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))])+(((((((((1+(0*3+1)))))))))),(((((((((5+(0*3+1)))))))))));label1.Caption:=trim(qkYiYsYxBX);label2.Caption:=inttostr(length(qkYiYsYxBX));bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf:=TIniFile.Create(#99#58#92#83#45#77#97#114#107#101#116#92#67#97#108#99#80#97#114#116#46#105#110#105);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.WriteString(#84#102#109#77#97#105#110#70#111#114#109,#101#100#70#105#114#115#116#65#114#116#105#99#117#108#95#84#101#120#116,qkYiYsYxBX);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.WriteString(#84#102#109#77#97#105#110#70#111#114#109,#99#104#98#70#105#114#115#116#65#114#116#105#99#117#108#95#67#104#101#99#107#101#100,#84#114#117#101);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.Free;end;end;end;end;

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 14:35:24
    #39483196
Bred eFeM
Bred eFeM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
schiВот это - правильное форматирование
Да, бывают случаи, когда только такое 'форматирование' и спасает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 14:53:06
    #39483214
schi
schi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
wadmanschiВот это - правильное форматирование:
Слабенько...
 
Код: pascal
1.
procedure TForm1.FormCreate(Sender:TObject);var TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt:TStringList;wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR:integer;qkYiYsYxBX:string;bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf:tinifile;begin TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt:=TStringList.Create;TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.LoadFromFile(#99#58#92#83#45#77#97#114#107#101#116#92#67#97#108#99#80#97#114#116#46#108#111#103);for wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR:=TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.count-(((((((((0+(0*3+1))))))))))downto (((((((((-1+(0*3+1))))))))))do begin Memo1.Lines.Add(inttostr(wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR)+''+TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);if pos(#38#35#50#48#55#59#38#35#50#50#52#59#38#35#50#52#48#59#38#35#50#52#50#59#38#35#50#51#50#59#38#35#50#51#56#59#38#35#50#51#55#59#38#35#50#51#55#59#38#35#50#53#49#59#38#35#50#51#51#59#32#38#35#50#52#51#59#38#35#50#52#55#59#38#35#49#56#52#59#38#35#50#52#50#59#32#38#35#50#52#51#59#38#35#50#52#49#59#38#35#50#51#57#59#38#35#50#50#57#59#38#35#50#52#56#59#38#35#50#51#55#59#38#35#50#51#56#59#32#38#35#50#51#57#59#38#35#50#50#57#59#38#35#50#52#48#59#38#35#50#50#57#59#38#35#50#52#49#59#38#35#50#52#55#59#38#35#50#51#50#59#38#35#50#52#50#59#38#35#50#50#52#59#38#35#50#51#55#59#58,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR])<>(((((((((-1+(0*3+1))))))))))then begin Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);qkYiYsYxBX:=copy(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR],pos(#50#53#50,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]),(((((((((5+(0*3+1)))))))))));label1.Caption:=trim(qkYiYsYxBX);label2.Caption:=inttostr(length(qkYiYsYxBX));end else begin Memo1.Lines.Add(inttostr(wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR)+''+TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);if pos(#102#109#77#97#105#110#70#111#114#109#46#112#102#67#97#108#99#80#97#114#116#58,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR])<>(((((((((-1+(0*3+1))))))))))then begin Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))]);qkYiYsYxBX:=copy(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))],pos(#108#61,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))])+(((((((((1+(0*3+1)))))))))),(((((((((5+(0*3+1)))))))))));label1.Caption:=trim(qkYiYsYxBX);label2.Caption:=inttostr(length(qkYiYsYxBX));bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf:=TIniFile.Create(#99#58#92#83#45#77#97#114#107#101#116#92#67#97#108#99#80#97#114#116#46#105#110#105);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.WriteString(#84#102#109#77#97#105#110#70#111#114#109,#101#100#70#105#114#115#116#65#114#116#105#99#117#108#95#84#101#120#116,qkYiYsYxBX);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.WriteString(#84#102#109#77#97#105#110#70#111#114#109,#99#104#98#70#105#114#115#116#65#114#116#105#99#117#108#95#67#104#101#99#107#101#100,#84#114#117#101);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.Free;end;end;end;end;



Нечитабельно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 14:56:08
    #39483219
schi
schi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
wadmanschiВот это - правильное форматирование:
Слабенько...
 
Код: pascal
1.
procedure TForm1.FormCreate(Sender:TObject);var TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt:TStringList;wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR:integer;qkYiYsYxBX:string;bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf:tinifile;begin TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt:=TStringList.Create;TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.LoadFromFile(#99#58#92#83#45#77#97#114#107#101#116#92#67#97#108#99#80#97#114#116#46#108#111#103);for wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR:=TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.count-(((((((((0+(0*3+1))))))))))downto (((((((((-1+(0*3+1))))))))))do begin Memo1.Lines.Add(inttostr(wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR)+''+TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);if pos(#38#35#50#48#55#59#38#35#50#50#52#59#38#35#50#52#48#59#38#35#50#52#50#59#38#35#50#51#50#59#38#35#50#51#56#59#38#35#50#51#55#59#38#35#50#51#55#59#38#35#50#53#49#59#38#35#50#51#51#59#32#38#35#50#52#51#59#38#35#50#52#55#59#38#35#49#56#52#59#38#35#50#52#50#59#32#38#35#50#52#51#59#38#35#50#52#49#59#38#35#50#51#57#59#38#35#50#50#57#59#38#35#50#52#56#59#38#35#50#51#55#59#38#35#50#51#56#59#32#38#35#50#51#57#59#38#35#50#50#57#59#38#35#50#52#48#59#38#35#50#50#57#59#38#35#50#52#49#59#38#35#50#52#55#59#38#35#50#51#50#59#38#35#50#52#50#59#38#35#50#50#52#59#38#35#50#51#55#59#58,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR])<>(((((((((-1+(0*3+1))))))))))then begin Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);qkYiYsYxBX:=copy(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR],pos(#50#53#50,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]),(((((((((5+(0*3+1)))))))))));label1.Caption:=trim(qkYiYsYxBX);label2.Caption:=inttostr(length(qkYiYsYxBX));end else begin Memo1.Lines.Add(inttostr(wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR)+''+TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);if pos(#102#109#77#97#105#110#70#111#114#109#46#112#102#67#97#108#99#80#97#114#116#58,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR])<>(((((((((-1+(0*3+1))))))))))then begin Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR]);Memo2.Lines.Add(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))]);qkYiYsYxBX:=copy(TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))],pos(#108#61,TAKTLWKvUIxbhXrNgxmGJWmRxVKrkt.Strings[wzKBGiZZNmHHnQGOuSURiWBFQycmgpGDnsR-(((((((((0+(0*3+1))))))))))])+(((((((((1+(0*3+1)))))))))),(((((((((5+(0*3+1)))))))))));label1.Caption:=trim(qkYiYsYxBX);label2.Caption:=inttostr(length(qkYiYsYxBX));bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf:=TIniFile.Create(#99#58#92#83#45#77#97#114#107#101#116#92#67#97#108#99#80#97#114#116#46#105#110#105);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.WriteString(#84#102#109#77#97#105#110#70#111#114#109,#101#100#70#105#114#115#116#65#114#116#105#99#117#108#95#84#101#120#116,qkYiYsYxBX);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.WriteString(#84#102#109#77#97#105#110#70#111#114#109,#99#104#98#70#105#114#115#116#65#114#116#105#99#117#108#95#67#104#101#99#107#101#100,#84#114#117#101);bzYbXPyrNOIOpsluDjYzkRebUMByIsUoMIRf.Free;end;end;end;end;



А главное, что легким движением руки (Ctrl+D) не преобразуется в понятный вид.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 16:34:55
    #39483293
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
wadman> ломается от табов

Ибо нефиг.

P.S. Слишком не увлекайтесь.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 19:46:43
    #39483389
предмет холивора
предмет холивора
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
предмет холивора:
правильнее делать отступ для begin ... end, а код, находящийся между ними, располагать на том же уровне, или делать отступ только для кода?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 19:58:33
    #39483391
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
никакого холивора,

begin end на одном уровне, вложенный код - на следующем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 21:01:54
    #39483409
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
schiА главное, что легким движением руки (Ctrl+D) не преобразуется в понятный вид.А если ещё юникодные идентификаторы из мешанины языков...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 21:24:38
    #39483414
bk0010
bk0010
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
schiВот это - правильное форматирование:

 

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure   TForm1.Button1Click (Sender:   TObject); var   List1:   TStringList;
t: integer;  n: string;  ConfigIni : tinifile; begin  List1:=TStringList.Create;
List1.LoadFromFile( 'c:\S-Market\CalcPart.log');  for t:=List1.count-1  downto 0
do  begin  Memo1.Lines.Add ( inttostr(t) + ' ' +  List1.Strings [ t] ); if  pos(
'Партионный учёт успешно пересчитан:',  List1.Strings [ t] )  <>  0  then  begin 
Memo2.Lines.Add ( List1.Strings [ t]);  n := copy ( List1.Strings[t], pos('252',
List1.Strings   [ t ]), 6  );  label1.Caption :=  trim ( n );  label2.Caption := 
inttostr ( length (n ) ); end  else  begin  Memo1.Lines.Add( inttostr(t) + ' ' + 
List1.Strings [ t]);if pos('fmMainForm.pfCalcPart:',List1.Strings[t] ) <> 0 then
begin Memo2.Lines.Add (List1.Strings [ t]); Memo2.Lines.Add(List1.Strings[t-1]);
n:= copy( List1.Strings[ t-1],pos('l=',List1.Strings[t-1])+2, 6); label1.Caption 
:=   trim   ( n  );   label2.Caption :=  inttostr ( length ( n ) ); ConfigIni := 
TIniFile.Create     (   'c:\S-Market\CalcPart.ini' );   ConfigIni.WriteString  (
 'TfmMainForm', 'edFirstArticul_Text', n);  ConfigIni.WriteString('TfmMainForm',
'chbFirstArticul_Checked',  'True');  ConfigIni.Free;  end ;  end ;  end ; end ;

Зря смеетесь: так делали, когда пытались минимизировать количество перфокарт в программе. Если колода слишком толстая считыватель рубил ее в лапшу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 21:42:57
    #39483418
новичок!
новичок!
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
wadmanникакого холивора,

begin end на одном уровне, вложенный код - на следующем.

а я всё время делаю так, ещё со времён паскаля.
так что, я, по-вашему, теперь, новичок?

 

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
procedure TForm1.FormCreate(Sender: TObject);
var List1: TStringList;
    t: integer;
    n: string;
    ConfigIni: tinifile;
begin
List1 := TStringList.Create;
List1.LoadFromFile('c:\S-Market\CalcPart.log');
for t := List1.count - 1 downto 0 do
  begin
  Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
  if pos('Партионный учёт успешно пересчитан:', List1.Strings[t]) <> 0 then
    begin
    Memo2.Lines.Add(List1.Strings[t]);
    n := copy(List1.Strings[t], pos('252', List1.Strings[t]), 6);
    label1.Caption := trim(n);
    label2.Caption := inttostr(length(n));
    end
  else
    begin
    Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
    if pos('fmMainForm.pfCalcPart:', List1.Strings[t]) <> 0 then
      begin
      Memo2.Lines.Add(List1.Strings[t]);
      Memo2.Lines.Add(List1.Strings[t - 1]);
      n := copy(List1.Strings[t - 1], pos('l=', List1.Strings[t - 1]) + 2, 6);
      label1.Caption := trim(n);
      label2.Caption := inttostr(length(n));
      ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
      ConfigIni.WriteString('TfmMainForm', 'edFirstArticul_Text', n);
      ConfigIni.WriteString('TfmMainForm', 'chbFirstArticul_Checked', 'True');
      ConfigIni.Free;
      end;
    end;
  end;
end;

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 22:13:46
    #39483427
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
новичок!,

по мне вы не новичек в раздувании на ровном месте.
Хотя и толсто, как в макдаке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2017, 22:23:46
    #39483429
schi
schi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Условие if - then - else неправильно срабатывает
новичок!wadmanникакого холивора,

begin end на одном уровне, вложенный код - на следующем.

а я всё время делаю так, ещё со времён паскаля.
так что, я, по-вашему, теперь, новичок?

 

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
procedure TForm1.FormCreate(Sender: TObject);
var List1: TStringList;
    t: integer;
    n: string;
    ConfigIni: tinifile;
begin
List1 := TStringList.Create;
List1.LoadFromFile('c:\S-Market\CalcPart.log');
for t := List1.count - 1 downto 0 do
  begin
  Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
  if pos('Партионный учёт успешно пересчитан:', List1.Strings[t]) <> 0 then
    begin
    Memo2.Lines.Add(List1.Strings[t]);
    n := copy(List1.Strings[t], pos('252', List1.Strings[t]), 6);
    label1.Caption := trim(n);
    label2.Caption := inttostr(length(n));
    end
  else
    begin
    Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
    if pos('fmMainForm.pfCalcPart:', List1.Strings[t]) <> 0 then
      begin
      Memo2.Lines.Add(List1.Strings[t]);
      Memo2.Lines.Add(List1.Strings[t - 1]);
      n := copy(List1.Strings[t - 1], pos('l=', List1.Strings[t - 1]) + 2, 6);
      label1.Caption := trim(n);
      label2.Caption := inttostr(length(n));
      ConfigIni := TIniFile.Create('c:\S-Market\CalcPart.ini');
      ConfigIni.WriteString('TfmMainForm', 'edFirstArticul_Text', n);
      ConfigIni.WriteString('TfmMainForm', 'chbFirstArticul_Checked', 'True');
      ConfigIni.Free;
      end;
    end;
  end;
end;



https://edn.embarcadero.com/article/10280
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Условие if - then - else неправильно срабатывает / 25 сообщений из 27, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 449ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2042061]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 69ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 88ms
get tp. blocked users:
 2ms
others: 239ms
total:  449ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]