Код изображения

[Galatimus]

Прошу помощи, как этот код перевести в читабельный для Делфи:

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;