Case

[Roya Rayane]

سلام.
دوستان اگه لطف کنید مثال از دستور کیس تو در تو بزنید.و اگر توضیحی هم داره ممنون میشم.

با تشکر از شما اگر لطف کنید با یک رشته هم مثالی بزنید.

[Mohammad_Mnt]

var
MyVar1, MyVar2: Integer;
begin
MyVar1 := 3;
MyVar2 := 1;

case MyVar1 of
1: begin
// do something
end;
2: begin
// do something
end;
3: begin
case MyVar2 of
1: begin
// This is the line that will be run
end;
2: begin
// do something else
end;
3: begin
// do something else
end;
end;
end;
4: begin
// do something
end;
5: begin
// do something
end;
end;
end;