ADO Y DELPHI (varias dudas)

[aquosoft]

millon de gracias.. andubo todo re bien!!!
una ultima por hoy...
alguno sabe si hay algo que me inserte en el codigo alguna linea o algo para separar los procedimientos uno de otro???
alguna propiedad o en view.. o algo??
tipo algo asi: (pero ke sea propio de pascal y ke no tenga ke separar yo a mano...
gracias y no jodo mas por hoy...

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

// ===================================================

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      edit1.Enabled := false;
      button1.Enabled := true;
      button1.SetFocus;
    end;
  if key = #27 then
    begin
      edit1.Text := '';
      edit1.SetFocus;
    end;
end;

// ===================================================

[Neftali [Germán.Estévez]]

"A mano" puedes programártelo en el "Code Insight" del IDE de Delphi; Accedes por "Tools/Editor Options/Cede Insight".
Defines una abreviatura y su sustitución....

Otra opción es instalar por ejemplo los GExperts (muy recomentables no sólo por esto, sino por muchas otras fucnciones).
A parte de que tienen una utilidad llamada "Code Profreeder" similar a la anterior, pero más configurable.

[aquosoft]

nooo..... a mano ni loco.. algo ke agregue una linea.. separando procedimientos o funciones o lo que sea.. pero ke las separe... como ke me diga ke ahi termina un procedimiento y empieza otros.. algo visual...

[Neftali [Germán.Estévez]]

Empezado por Neftali

"A mano" puedes programártelo en el "Code Insight"...

Me refería a que en el "Code Insight" le puedes decir que sustituya una cadena por otra;
Le dices que esto:
"================================================="
equivales a esto:
Sep1

Y cuando en el código escribes el Sep1, el IDE de Delphi te lo sustituye automáticamente.
A eso me refería, pero tal vez no te entendí.

[Rayku]

tengo esta funcion, bueno la coneccion no es mucho problema xq ya te la dieron arriba.

Function ListarSeries(cn: TADOConnection;var Error:String):TADODataSet;
var ADO:TADODataset;
begin
try
ADO := TADODataSet.Create(nil);
ADO.Connection := cn;
ADO.Close;
ADO.CommandType := cmdText;
ADO.CommandText := ' select distinct SerieNotaVenta from TNotaVenta order by SerieNotaVenta ';
ADO.Open;
result := ADO;
except
on E : Exception do
begin
Error:=E.Message;
result := nil;
end;
end;
end;

AQUI HAGO LA LLAMADA Y CARGO EN UN COMBO

// cargar las diferentes series
ADO := TADODataSet.Create(nil);
ADO.Connection := dmConeccion.ADOConection;
ADO.Clone(CVenta.ListarSeries(dmConeccion.ADOConection,Error));
ADO.First;
while not ADO.Eof do
begin
cbSerie.Items.Add(ADO.Fields[0].AsString);
ADO.Next;
end;

[[Lepe]]

En la línea que habla Neftali, existe un macro llamado procedure, es decir, en el código tú escribes procedure + CTRL + J y aparece:

Código Delphi [-]
procedure |
begin

end;

El cursor se queda esperando donde está la barra vertical (tubería).

Podrías sustituirlo, o crear uno nuevo que sustituya además añada los separadores que pides. Yo al menos tengo 2 definidos
cos (comentario simple) que se sustituye por:
{ ----------------------------- | ---------------------------------}

cod (comentario doble)
{ -----------------------------------------------------------------
|
----------------------------------------------------------------}

por cierto, las www.GExperts.com amplían un poco el tema de macros
pudiendo insertar automáticamente la fecha, hora, usuario y algunas
otras variables.

Por supuesto todo esto funciona cuando creas a mano un procedimiento, cuando usas el object Inspector, no se hace automáticamente.

Quizás puedas hacer algo con el Jcf (Jedi Code Formatter), un programa open source y gratuito. No te lo puedo asegurar, pero algo es algo.

Saludos