[luisito2011]

Hola.. saludoj a todos..

bueno..aca tengo un problemita con un ejercicio...
//Mostrar la cantidad de -a- que hay en un vector
//no inporta si es mayuscula.. o minuscula..//

Sin usar esto

Código Delphi [-]
Cost con: set of char =['A','a'];

Mi docente me dijo que no puedo resolver ese ejercicio usando cadena

Aca esta Mi Unit

Código Delphi [-]
 
unit unit1;
interface
uses
sysutils;
const
max=1024;
type
            CVectorS=class
             S: array[1..max] of string ;
             N: integer;
             constructor crear ;
             procedure dimencionar(dim:integer);
             procedure poner(posi:integer ; que:string);
             procedure mostrar(var s:cvectorS);
            
             function elemento(posi:integer):string;
             function dimencion:integer;
             end;

implementation

constructor CVectorS.crear;
begin
   N:=0;
end;
 
function CVectorS.dimencion: integer;
begin
  dimencion:=N
end;
procedure CVectorS.dimencionar(dim: integer);
begin
  N:=dim;
end;
function CVectorS.elemento(posi: integer): string;
begin
  elemento:=s[posi];
end;
 
procedure CVectorS.mostrar(var s: cvectorS);
var
  I: Integer;
begin
  for I := 1 to s.Dimencion do
  begin
    write(s.elemento(i):8);
  end;
end;
 
procedure CVectorS.poner(posi: integer; que: string);
begin
  s[posi]:=que;
end;
end.

Gracias.