Ver Mensaje Individual
  #3  
Antiguo 31-12-2017
jlalonso1950 jlalonso1950 is offline
Miembro
NULL
 
Registrado: dic 2017
Posts: 12
Reputación: 0
jlalonso1950 Va por buen camino
Stringgrid

Buenas Tardes, el problema que tengo es que estoy preparando una clase donde vamos a aplicar el método simplex, un metodo de Invetigación de Operaciones, se entra por un form si se va a Maximizar o Minimizar, el número de variables y restricciones, coeficientes de etos últimos datos que se entran por dos StringGrid y que despues se agrupan en un tercero, en codigo:

Código PHP:
StringGrid1->Cells[0][1]="COEF.";
StringGrid1->ColCount=StrToInt(Edit2->Text)+1;
StringGrid2->ColCount=StrToInt(Edit2->Text)+3;
StringGrid2->RowCount=StrToInt(Edit3->Text)+1;
for(
i=1;i<=StrToInt(Edit2->Text);i++){
    
StringGrid1->Cells[i][0]="  X "+IntToStr(i);
    
StringGrid2->Cells[i][0]="  X "+IntToStr(i);
}
StringGrid2->Cells[StrToInt(Edit2->Text)+1][0]="Signo";
StringGrid2->Cells[StrToInt(Edit2->Text)+2][0]="PD";
for(
j=1;j<=StrToInt(Edit3->Text);j++){
   
StringGrid2->Cells[0][j]=" C "+IntToStr(j);
   if(
RadioButton1->Checked){ //simplex puro
     
StringGrid2->Cells[StrToInt(Edit2->Text)+1][j]="<=";
     
Button2->Enabled=true;
   }
   else if(
RadioButton2->Checked){ //existen varias complicacioes+mimizado
     
Button3->Enabled=true;
   }
   else{
     
Button4->Enabled=true// varias complicaciones maximizado
   
}
}

ahora se pasa por un boton a un groupboxpara no salir del forma inicialdonde:
 
int i,j,k,m;
StringGrid3->ColCount=StrToInt(Edit2->Text)+StrToInt(Edit3->Text)+2;
StringGrid3->RowCount=StrToInt(Edit3->Text)+2;
StringGrid3->Cells[0][0]="  VB";
StringGrid3->Cells[0][1]="  Z";
for(
i=1;i<=StrToInt(Edit3->Text);i++){
    
StringGrid3->Cells[0][i+1]="  C"+IntToStr(i);
}
for (
j=1;j<=StrToInt(Edit2->Text);j++){
    
StringGrid3->Cells[j][0]="  X"+IntToStr(j);
}
for(
m=1;m<=StrToInt(Edit3->Text);m++){
   
StringGrid3->Cells[StrToInt(Edit2->Text)+m][0]=" C"+IntToStr(m);
}
StringGrid3->Cells[StrToInt(Edit2->Text)+StrToInt(Edit3->Text)+1][0]="  PD";
[
b]//cargar valores de los stringrid 1 y 2 en el 3 y ejecutar ' mi problema[/b]

GroupBox1->Visible=true

Última edición por Casimiro Notevi fecha: 31-12-2017 a las 21:38:25.
Responder Con Cita