ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Условие if - then - else неправильно срабатывает
25 сообщений из 27, страница 1 из 2
  1  все
Условие if - then - else неправильно срабатывает
    #39483108
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Цикл проходит до конца и выполняются все действия

Код: 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, 12:48:10
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483117
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
Код: 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:03:13
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483127
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Gallemar, а ты форматировать код не пробовал?
У меня лопнули глаза, пока я искал какой у тебя else от какого if.
...
Рейтинг: 0 / 0
05.07.2017, 13:14:09
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483128
Bred eFeM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bred eFeM
Участник
Gallemarто дальше ничего не делает
Код: pascal
1.
if pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0 then Break; { ExitProcess(0); ! }
...
Рейтинг: 0 / 0
05.07.2017, 13:17:01
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483129
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
Bred eFeMGallemarто дальше ничего не делает
Код: pascal
1.
if pos('Партионный учёт успешно пересчитан:',List1.Strings[t] ) <> 0 then Break; { ExitProcess(0); ! }



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

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

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

Надо форматировать по правому краю экрана, а не по центру.
...
Рейтинг: 0 / 0
05.07.2017, 13:44:03
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483152
mvb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 13:49:04
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483155
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
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, 13:52:31
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483168
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 14:13:52
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483183
Valery_B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valery_B
Участник
schi,

Тебе надо запатентовать данный стиль форматирования.
...
Рейтинг: 0 / 0
05.07.2017, 14:27:10
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483192
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
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:33:06
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483196
Bred eFeM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bred eFeM
Участник
schiВот это - правильное форматирование
Да, бывают случаи, когда только такое 'форматирование' и спасает!
...
Рейтинг: 0 / 0
05.07.2017, 14:35:24
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483214
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
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:53:06
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483219
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
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, 14:56:08
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483293
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
wadman> ломается от табов

Ибо нефиг.

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

begin end на одном уровне, вложенный код - на следующем.
...
Рейтинг: 0 / 0
05.07.2017, 19:58:33
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483409
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
schiА главное, что легким движением руки (Ctrl+D) не преобразуется в понятный вид.А если ещё юникодные идентификаторы из мешанины языков...
...
Рейтинг: 0 / 0
05.07.2017, 21:01:54
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483414
bk0010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bk0010
Участник
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:24:38
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483418
новичок!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
новичок!
Гость
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, 21:42:57
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483427
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
новичок!,

по мне вы не новичек в раздувании на ровном месте.
Хотя и толсто, как в макдаке.
...
Рейтинг: 0 / 0
05.07.2017, 22:13:46
| Ответить | Цитировать | Написать  
Условие if - then - else неправильно срабатывает
    #39483429
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
новичок!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
05.07.2017, 22:23:46
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Условие if - then - else неправильно срабатывает
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39483418&tid=2042061]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 198ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 206ms
total:  505ms
созд. / загр.: 505ms
x
x
Закрыть


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