iamebadi
22-11-2006, 13:01
با سلام خدمت همه دوستان عزيز
من يك پروژه با دلفي دارم و مي خوام اون رو به وي بي دات نت تبديل كنم
كسي مي تونه معادل اين كدها را به من در وي بي دات نت بگه.يا حداقل از چه ساختارهايي بايد در وي بي براي تعريف اين كدها استفاده كنم خيلي فوريه
پيشاپيش سپاسگزار و ممنونم
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;
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])
من يك پروژه با دلفي دارم و مي خوام اون رو به وي بي دات نت تبديل كنم
كسي مي تونه معادل اين كدها را به من در وي بي دات نت بگه.يا حداقل از چه ساختارهايي بايد در وي بي براي تعريف اين كدها استفاده كنم خيلي فوريه
پيشاپيش سپاسگزار و ممنونم
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;
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])