punteros en delphi

[[Delphius]]

karen08,
Mil disculpas. Me he enredado con otros asuntos y se me olvidó de esto.
Estuve buscando entre mis apuntes de lenguaje aquellos ejercicios de punteros pues creía recordar que hice uno así... pero no los encontré. Quedaron en en Limbo del viejo disco duro...

No recuerdo mucho de pilas, colas y listas con punteros... por lo que no lo tengo demasiado fresco. Se que es algo simple, es cuestión de que haga memoria... y si me das hasta mañana te puedo adelantar algo como para que veas.

No quiero hacerte alegrar demasiado. Por lo que veo a simple vista hay unos errores:

La declaración correcta para conformar los nodos es así:

Código Delphi [-]
type
TNodo = ^Nodo
Nodo = record
   Letra: char;
   Sig: TNodo;
end;

En tu código estás mezclando objetos con la declaración de los nodos.
¿Debes crear una clase que implemente dichos procedimientos y que use internamente a la lista de nodos?

Si es así, la declaración de la clase es:

Código Delphi [-]
TClase = class
private
  FList: TNodo; //FList mantendrá la lista de nodos
  FPrimero, FUltimo, FAnterior: TNodo // auxiliares... para operar
  FCuenta: integer; // puede ser util llevar la cuenta de letras
public
  function  Agregar(Letra: char): integer; //devolvería la posición
  function GetLetra(Posic: integer): char;
  constructor Create;
  destructor Destroy;
end;

Según mi percepción Lo que se debe hacer es que si se necesita armar el abecedario sólo basta con emplear Agregar() que lo que hace es insertar al final de la lista el siguiente nodo con la info necesaria, y la función GetLetra que se encargaría de regresar la letra que se encuentre en la posición Posic (siempre y cuando existan una cantidad de nodos al menos igual a Posic)

De hecho... (según entiendo yo) para el uso de la clase no tendría sentido la función Agregar. Sino más bien que en Create tranquilamente se puede conseguir armar el abecedario en forma "automática". Ya que disponder de un Agregar() puede llevarnos a algo como esto:
ABDFTRUV y como bien sabemos... esto no es el abecedario.

Es decir que lo que yo haría es mover la declaración Agregar en private y llamarla dentro de Create. Algo así:

Código Delphi [-]
constructor TClase.Create;
begin
for i := 'A' to 'Z' do
   Agregar(i);
end;

Y bueno... también debería disponer de un Eliminar, de modo que en Destroy podríamos hacer algo así:

Código Delphi [-]
while FList <> Nil do
  Eliminar;

Obviamente Eliminar debería hacerlo desde el final o el principio (según como te resulte más cómodo).

Espero que te resulte útil estos tips. Como dije... dame un tiempito y te doy una muestra sencilla.

Saludos,

[[Delphius]]

Bueno. Lo prometido es deuda.
me tomé unos minutos y desarrollé un ejemplo implementando una estructura LIFO. Es decir una Cola. Lo que hice es implementar una classe TABC que viene con el código encapsulado para agregar, borrar, inicializar, etc..

¿Porqué una clase?
Pues a mi me da la impresión de que quieres intentar hacer una clase por lo de:

Código Delphi [-]
function TClistletras.getletras: string; 
//...

Me he acostumbrado a codificar en Inglés o pseudoInglés... espero que no te moleste. Agregué los comentarios que me parecieron indicados exponer.

Bueno. La unidad es como sigue:

Código Delphi [-]
unit UABC;

interface

uses
  Classes;

CONST
  //Esta cadena sirve para cargar las letras
  ABC = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ';

type
  // estructura de un nodo
  TNode = ^Node;
  Node = record
          Character: char;
          Sig: TNode;
         end;

  // Estructura de una clase que opera con una estructura LIFO (Cola)
  // para armar un abecedario
  // Debido a la simpleza de implementar una estructura LIFO
  // se optó por este método
  // Por tanto Z será el último elemento de la pila, y A el primero

  // De forma análoga se puede conseguir mediante FIFO o una lista genérica
  TABC = class
    private
      // Nuestro TOPE
      Ftop: TNode;

      // Inicilizar cola
      procedure Init;

      // Borrar o Limpiar cola
      procedure Clear;
    public
      constructor Create;
      destructor Destroy;

      // Push = Agregar
      procedure Push(Character: char);

      // Pop = Eliminar
      function Pop: char;

      // IsEmpty = EsVacia
      function IsEmpty: boolean;

      // DevolverCaracter (no lo elimina, solo consulta)
      function GetChar: char;
  end;


implementation

procedure TABC.Push(Character: char);
var NewNode: TNode;
begin
  new(NewNode);
  NewNode.Character := Character;
  NewNode.Sig := Nil;

  if IsEmpty
     then begin
            // No tenía nodo
            // NuevoNode es el primero
            Ftop.Sig := NewNode;
          end
     else begin
            // Hay más de un nodo
            // TOPE siempre apunta al último nodo
            NewNode.Sig := FTop.Sig;
            FTop.Sig := NewNode;
          end;
end;

function TABC.Pop: char;
var OldNode: TNode;
begin
  if NOT IsEmpty
     then begin
          OldNode := FTop.Sig;

          // devolvemos el carater del elemento TOPE
          result := OldNode.Character;

          // Eliminamos el elemento tope y TOPE apunta al siguiente en la
          // cola
          FTop.Sig := OldNode.Sig;
          dispose(OldNode);
          end;
end;

constructor TABC.Create;
begin
  // reservamos el TOPE
  new(FTop);
  FTop.Sig := Nil;

  // Iniciamos la cola...
  Init;
end;

destructor TABC.Destroy;
begin
  // Borramos la cola
  Clear;

  dispose(FTop);
end;

procedure TABC.Init;
var Pos: integer;
begin
 // desde 1 hasta la longitud de la cadena ABC
 for Pos := 1 to Length(ABC) do
   // metemos en la pila el caracter Pos-ésimo de la cadena ABC
   Push(ABC[Pos]);
end;

procedure TABC.Clear;
var Node: TNode;
begin
  while NOT IsEmpty do
    Pop;
end;

function TABC.IsEmpty: boolean;
begin
  // TRUE si TOPE no apunta nada
  // FALSE en cualquier otro caso
  result := FTop.Sig = Nil;
end;

function TABC.GetChar: char;
begin
  if NOT IsEmpty
     then result := FTop.Sig.Character;
end;

end.

Un ejemplo de uso, cargando un ListBox:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var ABCobj: TABC;
    i: integer;
begin
 ABCobj := TABC.Create;

 for i := 1 to 27 do
   ListBox1.Items.insert(0,ABCobj.pop);
 Application.ProcessMessages;

 ABCobj.Destroy;
end;

Creería que con eso puedes darte una idea de como implementarlo con otras estructuras, por ejemplo FIFO.

Si tienes dudas, avisa.
Saludos,

PD: Si algún moderador pasa por aquí, que mueva a este hilo a la sección adecuada ya que el tema no correspondería al subforo Internet.

[karen08]

hola

muchas gracias por lo del ejercicio del alfabeto me fue de mucha ayuda.

pero esta vez estoy necesitando de nuevo su ayuda necesito un ejercicio cual sea que contenga varios componentes de la barra standard o la aditional de delphi pero.. el ejercicio debe ser lo mas sencillo posible lo menos codigo posible pero que sea algo educativo. si esta a su alcance hacerme ese favor se lo voy a agradecer siempre igual que el anterior.

pueder ser que sume numeros lo que sea pero utilizando varios componentes de las barras de delphi

chaito

y de nuevo gracias

saludos

[[Delphius]]

Empezado por karen08

hola

muchas gracias por lo del ejercicio del alfabeto me fue de mucha ayuda.

pero esta vez estoy necesitando de nuevo su ayuda necesito un ejercicio cual sea que contenga varios componentes de la barra standard o la aditional de delphi pero.. el ejercicio debe ser lo mas sencillo posible lo menos codigo posible pero que sea algo educativo. si esta a su alcance hacerme ese favor se lo voy a agradecer siempre igual que el anterior.

pueder ser que sume numeros lo que sea pero utilizando varios componentes de las barras de delphi

chaito

y de nuevo gracias

saludos

Karen08. Lo siento pero aqui no hacemos la tarea, o al menos hacemos lo posible para evitar llegar a ese extremo. Debo decir que me siento usado y aprovechado por mi amabilidad.
No es que esté enojado pero prefiero hacerte llamar por segunda vez que leas la guia de estilo.

Lo siento, esta vez no te voy a preparar un ejemplo. Aquel código que te expuse lo hice sólo con el fin de guia, y tu debías adaptarlo a tu entendimiento sobre el tema. Tal parece, y asi lo intuyo, que sólo te limitaste a usarla.

Ya te lo he pedido la otra vez: Explica mejor el problema. Da la mayor cantidad de detalles. Se bien descriptiva con la consigna y copia aquí el código que llevas hecho.
Esta vez serás tú quien logre resolverlo. Aquí estaré para ayudarte en algunos detalles técnicos más no para armar un ejemplo.

No estoy de malas, pero eres tu quien debe aprender a programar. Tu vienes a consultarnos y deberías ser tu quien ponga de su esfuerzo para conseguir la enseñanza y el aprendizaje. Para mi lo otro fue un repazo, ya pasé por eso.

Tienes en tus manos la ayuda de Delphi. Si desconoces lo que hacen los componentes tan sólo debes seleccionarlo, presionar F1 y accederás a la ayuda descriptiva de cada uno.
Ante mayores dudas, aqui pueden ser discutidas. Pero primero, como ya he dicho y espero que haya quedado en claro, aqui no te vamos a hacer la tarea.

Lamento decirtelo así, busqué las palabras menos ofensivas posibles. Espero que sepas entender que aqui nadie nos paga por venir y ayudar a los demás. Lo hacemos altruistamente y en el tiempo libre que dispongamos.

Saludos,

[karen08]

hola

entendi muy bien el mensaje de la otra vez, y es cierto ustedes solo son una ayuda, disculpa de todas formas por haber sido asi.

hoy le quiero contar que estoy trabajando un programita muy sencillo con un combobox que desapliega una lista de numeros del 1 al 10 y los muestra al frente con un label pero, me encantaria meterle algo de sonido y no se que componente usar ni como usarlo y no se si usted me podria ayudar explicando me esto, abajo le envio el codigo que tengo.

mi idea es que cuando se escoja el numero salga la voz que yo grabaria diciendo el numero.

le agradesco escribirme en español si no es mucha molestia

saludos


[
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:label1.Caption:= 'ONE';
1:label1.Caption:= 'TWO';
2:label1.Caption:= 'THREE';
3:label1.Caption:= 'FOUR';
4:label1.Caption:= 'FIVE';
5:label1.Caption:= 'SEX';
6:label1.Caption:= 'SEVEN';
7:label1.Caption:= 'EIGHT';
8:label1.Caption:= 'NINE';
9:label1.Caption:= 'TEN';
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CLOSE;
end;
end.
]

[[Ivanzinho]]

Hola, karen08, te recomiendo que leas la guía de estilo. Para una nueva duda debes crear un nuevo hilo en el lugar adecuado.

Para hacer lo que necesitas puedes usar el componente TMediaPlayer de la pestaña 'System'.

Un saúdo.

[karen08]

hola

disculpa pero mi interogante es como se programa ese componente porque para mi es desconocido, nunca lo habia usado que pena solo necesito una pequeña esxplicacion y yo estoy segura que lo hago.

saludos

[[Delphius]]

Hola Karen08, me alegro de que hayas entendido mis palabras y no haya malentendidos.

Con respecto a tu problema lo puedes solucionar con el TMediaPlayer, un componente de la paleta System. Dicho componente tiene una propiedad FileName, allí le ingresas el Path completo del archivo audio, luego cuando desees reproducir el archivo debes llamar a Open y seguidamente a Play. Puedes consulta el buscador de los foros porque el tema fue tratado.
Por cierto: si no te gusta la apariencia del TMediaPlayer, lo ocultas poniendo visible a False.

Ya que estoy por aqui, y no por ser cortante. Como tus dudas vienen a ser der otra temática, lo correcto sería que hubieras abierto otro hilo. Esto está expresado en la guia de estilo, pero no hay problema... te estás adaptando.

Saludos,