Ver Mensaje Individual
  #7  
Antiguo 07-12-2004
[Nbull] Nbull is offline
Miembro Premium
 
Registrado: nov 2004
Ubicación: Valencia-España
Posts: 168
Reputación: 20
Nbull Va por buen camino
A ver StrToint lo que hace es pasarte un dato del tipo cadena a un dato de tipo entero, por ejemplo si yo tengo '13' y lo quiero tener 13 lo que hago es :

Código Delphi [-]
 Notas1:=strtoint('13');

Mira he echo un ejemplo muy simple con dos edit y un boton, dandole dos veces alboton entras en el evento oNCLICK del boton y escribes el siguiente código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
Notas1:integer;
Notas2:integer;
aux1:integer;
begin
     Notas1:=  Strtoint(Edit1.text);
     aux1:=Notas1+2;
     Edit2.Text:=inttostr(aux1);
end;

Si ejecutas este programa y escribes numeros enteros en el edit1 y luego le das al boton te sumara 2 y te lo pondra en el edit 2.

Para tu programa ocurre igual, una vez que hemos pasado la cadena que queremos a la variable aux1 la transformamos en entero y se lo asignamos a Nota 1, te quedaria de la siguiente forma:
Código Delphi [-]
Procedure.....
Var
Str,Aux1,Aux2:string
Notas1,Notas2,NotaFinal:integer;
Begin
Str:=',13,14,20';//Me guardo la cadena en la varible Str del tipo String
Aux1:=Copy(Str,1,2);//Me copio el 13 en aux1 que sera de tipo String
//El 1 es el caracter 1 y el 2 porque es una cadena de 2 caracteres
Notas1:=Strtoint(Aux1);//Paso la cadena '13' a entero Nota 1 debe ser integer
 
//Hago lo mismo con la segunda nota
Aux2:=Copy(Str,4,2);
Notas2:=Strtoint(Aux2);
//Y ahora puedo hacer lo siguiente
NotaFinal:=(Notas1+Notas2)/2
end;
Espero que te haya quedado mas claro, ya me contaras.

Un Saludo.
Responder Con Cita