- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
la:
for j:=8 to (length(a)-length(b) div 2) do
begin
...
if(a[j]>'5') goto la;
...
if(a[j]>'7') goto la;
...
if(a[j]>'2') goto la;
...
j:=j-8;
...
form1.memo1.text=form1.memo1.text+'; '+inttostr(j)+'5';
...
if(a[j]>'1') goto g;
...
j:=j+8;
end;
g:
guest 02.09.2009 15:52 # +2
guest 02.09.2009 20:12 # +3
guest 03.09.2009 08:22 # +2
guest 03.09.2009 11:06 # +2
Говногость 03.09.2009 14:57 # 0
guest 03.09.2009 17:48 # −3
guest 03.09.2009 18:24 # +1
guest 06.09.2009 11:52 # −1
for j:=8 to ...
j:=j-8;
if(a[j]>'1') goto g;
приведут к печальным последствиям. Будет обращение по a[0], а в дельфи это вроде нельзя для строк...
guest 26.09.2009 01:23 # +1
В a[0] хранится длина строки (для ANSIString, WideString, ShortString) или первый символ (PChar, PWideChar). a[0]>'1' эквивалентно для string эквивалентно Length(a)>1
guest 06.09.2009 11:53 # 0
labutinpa 07.09.2009 00:53 # 0
guest 10.09.2009 11:54 # 0
Holden 28.09.2009 09:48 # +2
AntiGluk 09.10.2009 21:46 # +1
guest 09.11.2009 02:26 # 0
guest 16.11.2009 15:52 # 0