Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758702 Fri, 09 Nov 2007 15:04:06 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758702

Eu := ET5 mod 62; //mod(ET5,62);// Eu:=ET5-(ET5/62)*62;

// и так везде

]]> Voice Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758363 Fri, 09 Nov 2007 12:19:25 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758363

d6(d7);

Ew[Et]:=d5;

bj_forLoopAIndex:=bj_forLoopAIndex+1;

Ew[7]:=SubStringBJ(d8(SL5),1,1);

Ew[2]:=SubStringBJ(d8(SL5),2,2);

Eu:=mod(ET5,62);// Eu:=ET5-(ET5/62)*62; //[Error] Unit1.pas(757): Expression expected but 'MOD' found

Ew[10]:=DB(Eu);

Eu:=ET5/62;

Eu:=mod(Eu,62);// Eu:=Eu-(Eu/62)*62;

Ew[1]:=DB(Eu);

Eu:=ET5/62;

Eu:=Eu/62;

Eu:=mod(Eu,62);//Eu:=Eu-(Eu/62)*62;

Ew[8]:=DB(Eu);

Eu:=ET5/62;

Eu:=Eu/62;

Eu:=mod(Eu,62);//Eu-(Eu/62)*62;

Ew[4]:=DB(Eu);

bj_forLoopAIndex:=1;

bj_forLoopAIndexEnd:=12;

if (Ew[bj_forLoopAIndex]=aJ[1]) then EU1[bj_forLoopAIndex]:=0.26; //[Error] Unit1.pas(775): ';' expected but 'IF' found

Теерь так :\]]> Dialup5 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758225 Fri, 09 Nov 2007 11:24:37 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758225 Цитата

ошибка [Error] Unit1.pas(768): Incompatible types: 'Integer' and 'Extended'

Дробное число пытаешься писать в целую пременную. Имеется в виду ,что при делении число может получиться дробным.
Так что приводи частное к целому типу.

Цитата

[Error] Unit1.pas(116): Type of expression must be BOOLEAN

if intToStr(SL):=aJ[42] then d9:=Random(2); // здесь проверка должна быть, не присваивание !!

]]> WildBear Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758223 Fri, 09 Nov 2007 11:23:14 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758223 Dialup5 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758218 Fri, 09 Nov 2007 11:20:07 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758218 Цитата Dialup5 @ 09.11.07, 11:14

да и дебагер сломался

Что дебажить, если

Цитата Dialup5 @ 09.11.07, 11:14

е комплируцо

:blink:]]> Domino Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758217 Fri, 09 Nov 2007 11:20:05 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758217 Dialup5 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758216 Fri, 09 Nov 2007 11:19:20 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758216 Цитата

if intToStr(SL):=aJ[42]

Двоеточие убрать.]]> Rose Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758206 Fri, 09 Nov 2007 11:14:42 +0000 Ошибка в коде https://forum.sources.ru/index.php?showtopic=209683&view=findpost&p=1758206 Я переводил с 1 языка на другой.
1-ая зона Var Eu,ET5: integer;

Eu:=ET5-(ET5/62)*62;

Ew[10]:=DB(Eu);

Eu:=ET5/62;

Eu:=Eu-(Eu/62)*62;

Ew[1]:=DB(Eu);

Eu:=ET5/62;

Eu:=Eu/62;

Eu:=Eu-(Eu/62)*62;

Ew[8]:=DB(Eu);

Eu:=ET5/62;

Eu:=Eu/62;

Eu:=Eu-(Eu/62)*62;

Ew[4]:=DB(Eu);

2-ая зона Var Те же и EU1: array [0..255] of integer;

Ev:=EU1[1]+EU1[2]+EU1[3]+EU1[4]+EU1[6]+EU1[7]+EU1[8]+EU1[9]+EU1[10]+EU1[11]+EU1[12];

Тут ошибка [Error] Unit1.pas(768): Incompatible types: 'Integer' and 'Extended'

3-я зона var d9: integer; Da: string; DA1: string; Db: string; aJ: array [0..255] of

if Length(IntToStr(SL))=StrToInt(aJ[42]) then begin d9:=Random(2);

if d9=1 then Da:=aJ[37] else Da:=aJ[33];

if intToStr(SL):=aJ[42] then d9:=Random(2);

if d9=1 then DA1:=aJ[16]

else DA1:=aJ[9];

if IntToStr(SL)=aJ[7] then begin d9:=Random(2);

if d9=1 then DA1:=aJ[32]

else DA1:=aJ[53];

end;

if IntToStr(SL)=aJ[58] then begin d9:=Random(2);

if d9=1 then DA1:=aJ[21]

else DA1:=aJ[49];

end;

if IntToStr(SL)=aJ[62] then begin d9:=Random(2);

if d9=1 then DA1:=aJ[13]

else DA1:=aJ[58];

end;

if IntToStr(SL)=aJ[14] then begin d9:=Random(2);

if d9=1 then DA1:=aJ[5]

else DA1:=aJ[29];

end;

[Error] Unit1.pas(116): Type of expression must be BOOLEAN

Помогите плз, я незнаю что тут делать, я все перепробовал...]]> Dialup5 Delphi: Общие вопросы