Un array con problemas
 

Hola,

estoy intentado hacer un objeto. (mi primero)

tengo declarados dos arrays:


Y en un metodo para limpiarlos hay un for asi:

El problema es que me da un error. Y tras agregar un watch, todos los elmentos del array dice "Inaccessible Value"

La declaración de las arrays la he puesto en public y private y sigue igual.

Tal vez el problema sea esto...

Código Delphi [-]
for i := 0 to ne -1 do
        begin
          cm[i]:='';
          VL[i]:='';
        end;

Lo probé antes y no funcionó.

La clase esta declarada así:
He comprobado que tampoco puedo asignar anda a "tabla". en el watch dice lomismo que el array.

Hola cecilio
A ver si probando esto aclaramos algo...

Código Delphi [-]
unit Unit1;

interface


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

 const ne = 20;

type
   Tsql= Class(TObject)
       private
         cm: array[0..ne] of string;
         vl: array[0..ne] of string;
         tabla: string;
      public
        constructor create ;
        destructor Destroy ; override;
        procedure Limpia;
  end;


Type

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}


constructor  Tsql.create;
begin
 inherited Create;
End;

destructor Tsql.Destroy;
Begin
inherited Destroy;
End;


procedure TSql.Limpia;
Var I : Integer;
Begin
   For I  := Low(cm) to High(cm) do
   cm[i] := 'ClubDelphi ' + IntToStr(I);
End;




procedure TForm1.Button1Click(Sender: TObject);
Var
Objeto : TSql;
I  : Integer;
begin

Memo1.Lines.Clear;

Objeto := TSql.create;
With Objeto DO
  Begin
      Limpia;
      For I := Low(cm) to High(cm) do
        Memo1.Lines.Add(cm[i]);
  End;


  Objeto.Free;

end;

end.

Saludos y suerte

Muchas gracias ArdiIIa

Mira lo que era:

No estaba inicializando la clase. La verdad es que desconocía esto. Llevo una semana en Delphi.

Muchas gracias, por el interés que has tomado y el trabajazo que te has dado poniendo todo el código.:)

Te voy a contar un poco de qué va.
Se trata de una unidad para manejar algo Sql, por lo menos lo gordo. La idea es que con asigna(campo, valor) vas llenando el array.

Despues tienes dos metodos Carga(nombretabla):string devuelve un string con la consulta SQL :
Otro metodo para Update con la clausula where, etc.

El resultado que te he mostrado ya lo ha creado la clase que me daba los problemas.

Cuando tenga más soltura intentaré pasarle otros tipos que no sea solo string. Pero aun no se bien como hacerlo.

Así gracias de nuevo por la ayuda.

Lo que me sorprendió es que pudieras compilar tu código teniendo en cuenda el lugar conde habías puesto el const y por otro lado, al recorrer el Array tal como lo tenías inicialmente, contabas un elemento más de los existentes.
Por lo demás, me parece una estupenda idea.