Una ayudita¿?

[[Caral]]

Hola
Y hay que tomar clases para aprender las clases
Saludos
Edito: Creo, si no me equivoco que el concepto de clases es pan de cada dia de C, C++ o java pero delphi es mas de objetos, ya me corregiréis.

[[gatosoft]]

Empezado por Caral

Hola
Y hay que tomar clases para aprender las clases
Saludos
Edito: Creo, si no me equivoco que el concepto de clases es pan de cada dia de C, C++ o java pero delphi es mas de objetos, ya me corregiréis.

Lo uno va con lo otro Caral.... Los objetos son una "Instanciación" de una clase... Todos los objetos necesariamente estan definidos en una clase. Aunque muchos piensen lo contrario, yo creo que en Delphi trabajamos 100% objetos y por ende clases (Ok, tal vez exagero, quizá sea un 95%)..... Lo que sucede es que no nos damos cuenta de ello, por que gracias a Dios Delphi nos hace la vida sencilla...!!!!

La mejor muestra de ellos la tenemos al hacer click en el menú: "File | New... VCL Forms Application - Delphi"

Aqui tenemos nuestra clase definida TForm1... y la variable tipo objeto.... Form1

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm) //Clase TForm1, que desciende de una clase superior llamada TForm
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; //Variable tipo objeto de la clase TForm1

implementation

{$R *.dfm}

end.

Un saludo,

[[Delphius]]

Justamente el capítulo 6 de la Cara Oculta de Delphi 4 trata en forma exclusiva y profunda el tema de OO.

Caral, has usado Clases y Objetos sin saberlo desde que te conozco

[Deito]

Ya gracias ya hice algunos practicos.... Alguien que me ayude... Como eliminar una palabra de una oración... yo use ese pero tiene una falla... si elijo una palabra del medio la elimina junto con todas las sgtes palabras...

procedure Cadena.delpal(sx: string);
var
I,l,IX,im:WORD;
begin
i:=1; l:=length(sx);
for i:= 1 to longitud do
begin
if siguientepalabra(i)=sx then
im:=i-l;
for iX:=im to i do
delchar(IX);
end;
end;

[ecfisa]

Hola Deito.

Por favor cuando pongas código Delphi en tus mensajes usa los TAG's, te pongo una imágen que explica su uso:



Y recuerda que en la guía de estilo dice que si una pregunta no tiene relación con el mensaje que inició el hilo, crees uno nuevo con ella.



En cuanto a tu consulta, Delphi tiene funciones y procedimientos que te simplifican la taréa . Te pongo un ejemplo con un procedimiento que sin mucha dificultad podrás implementar como método de tu clase Cadena:

Código Delphi [-]
uses StrUtils; // necesario para la función AnsiReplaceStr

procedure BorrarPalabra(var Cadena: string; const Palabra: string);
begin
  Cadena:= AnsiReplaceStr(Cadena, Palabra,  '');
end;

Saludos.

[Deito]

gracias amigo... y parece q voy a estar leyendo un poco mas sobre las reglas de la comu.... jeejejejej no podesssssss....... jajajaj todas esas lineas q yo ize... es esa q tu iciste.... ya Gracias