تبديل چند خط كد دلفي به وبي دات نت فوري
با سلام خدمت همه دوستان عزيز
من يك پروژه با دلفي دارم و مي خوام اون رو به وي بي دات نت تبديل كنم
كسي مي تونه معادل اين كدها را به من در وي بي دات نت بگه.يا حداقل از چه ساختارهايي بايد در وي بي براي تعريف اين كدها استفاده كنم خيلي فوريه
پيشاپيش سپاسگزار و ممنونم
type
string15=string[15];
TempStrings =array[1..2] of string15 ;
string3=string[3];
Token = array [1..50,1..100] of string15 ;
Token_Number_Per_Line= array [1..50] of byte ;
Tables_Name = array[1..10] of string15;
T_N_and_F_N = record
Table_name:string15;
Field_name:string15;
end;
Fields_Name = array[1..15] of T_N_and_F_N;
Order =record
Columns:Integer;
Rows:Integer;
end;
op =record
case Is_Table_Field:boolean of
True:(Table_name:string15;
Field_name:string15 );
False:(Literal:string15);
end;
Field_Projection =record
oprand1:op;
oprand2:op;
Operator:string3;
two_table_Field:boolean;
end;
Field_Projections=array[1..50] of Field_Projection;
var
TK :Token;
TNPL:Token_Number_Per_Line;
TLine:byte;
Final_TBName,TBName:Tables_Name;
Final_Table_num,Table_num:byte;
F_name:Fields_Name;
Selection_fields:byte;
FP:Field_Projections;
FP_num:byte;
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
جواب بصورت نقل قول
