La verdad entiendo por encima esto de la POO pero de alli a saber implementarla nada que ver ... es por eso que me permito colocarles aca unos procedimientos y funciones sencillos (de esos que uno usa) para ver si alguno de ustedes propone la trasformacion de estos a el paradigma de POO y asi ver de forma practica la trasformacion de un codigo a otro y entender cual es el beneficio de una forma de programar frente a la otra(tradicional, procedimental etc)
OJo las rutinas son muy sencillas...esa es la idea para que se entienda facil...
Código Delphi
[-]
procedure TForm2.Modificar(Id: string);
begin
if Buscar then
Begin
Tabla.edit;
TablaCampo1.value:=Valor1;
TablaCampo2.value:=Valor2;
TablaCampo3.value:=Valor3;
Tabla.post;
End
else MiMensaje('No encontrado');
end;
Function TForm2.Buscar(Id: string):Boolean;
begin
if Tabla.locate('Id',Id,[]) then result:=True
else result:=False;
end;
procedure TForm2.MiMensaje(Texto: string);
begin
application.MessageBox(Texto,'Aviso del Sistema',MB_OK);
end;
Espero que alguien se tome la molestia asi aprendo de una vez por todas porque con los libros la información queda algo esoterica.....
Gracias .....
P.D: si pueden explicar lo que hicieron pasito a pasito para nosotros los bruticos ....y hacer algo asi como una justificacion de lo que proponen (se que es mucho pedir pero que le vamos a hacer hoy llegue mendigo y sinverguenza)...