|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
31.03.2013, 00:12 | #11 |
Пользователь
Регистрация: 31.03.2011
Сообщений: 10
|
Прошу помощи, как этот код перевести в читабельный для Делфи:
Var text1,text2, number1,number2,c,d,e,f,PrevPos,Fie ldInfo,RecString,ChiplistNbrFields, ChiplistFieldInfo:real; begin RecString:='0,1;0,5;1;5;10;25;100'; // chiplist string (euro casino) // Findout nbr of fields to create Array ChiplistFieldInfo d:=1; For c:=1 to length(RecString) do begin IF RecString[c]=';' then d:=d+1; end; ChiplistNbrFields:=d; // number of fields in chiplist ChiplistFieldInfo:=VarArrayCreate([0,ChiplistNbrFields],12);// Create Chiplist FieldInfo Array // Now place chiplist in array of fields; In place nbr 0 you will find the number of fields e:=1; d:=1; f:=0; PrevPos:=1 ChiplistFieldInfo[0]:=ChiplistNbrFields; RecString:=RecString+';';// PLace a , behind it so the last number will also be picked For c:=1 to length(RecString) do // get field names (can be used to get field info in other procedures) begin IF RecString[c]=';' then begin FieldInfo:=Copy(RecString,PrevPos,c-PrevPos); ShowMessage('28: d='+IntToStr(d)+' , FieldInfo='+FieldInfo); // test ChiplistFieldInfo[d]:=StrToFloat(FieldInfo); PrevPos:=c+1; d:=d+1; end end; ShowMessage('33: ChiplistFieldInfo[0]='+IntToStr(ChiplistFieldInfo[0])+' ChiplistFieldInfo[1]='+FloatToStr(ChiplistFieldInfo[1])+' ChiplistFieldInfo[2]='+FloatToStr(ChiplistFieldInfo[2])+' ChiplistFieldInfo[3]='+FloatToStr(ChiplistFieldInfo[3])+' ChiplistFieldInfo[4]='+IntToStr(ChiplistFieldInfo[4])+' ChiplistFieldInfo[5]='+IntToStr(ChiplistFieldInfo[5])+' ChiplistFieldInfo[6]='+IntToStr(ChiplistFieldInfo[6])+' ChiplistFieldInfo[7]='+IntToStr(ChiplistFieldInfo[7]));//test end; Последний раз редактировалось Galatimus; 31.03.2013 в 00:29. Причина: еще вопрос |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Делфи. как правильно вставить код в код? | Кушманский | Помощь студентам | 13 | 18.03.2012 20:06 |
перевод в ASCII код и в двоичный код | Randy.Mandy | Microsoft Office Excel | 0 | 27.02.2012 21:40 |
Доп.код,обратный код,прямой код вычисления | Lukas077 | Помощь студентам | 0 | 20.03.2011 12:07 |
Код написал код, но ответ постоянно один и тот же | SkuLLL | Помощь студентам | 4 | 14.12.2010 19:25 |
Чтение изображения из базы данных, Вместо изображения - "System.Byte[]" | ruelCrow | Общие вопросы .NET | 3 | 10.07.2008 23:29 |