Un array con problemas

[Cecilio]

Hola,

estoy intentado hacer un objeto. (mi primero)

tengo declarados dos arrays:

 cm: array[0..ne] of string;
   vl: array[0..ne] of string;

Y en un metodo para limpiarlos hay un for asi:

        for i := 0 to ne do
        begin
          cm[i]:='';
          VL[i]:='';
        end;

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.

[[ArdiIIa]]

Tal vez el problema sea esto...

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

[Cecilio]

Lo probé antes y no funcionó.

La clase esta declarada así:

type
   Tsql= Class
     const ne = 20;
      private
         cm: array[0..ne] of string;
         vl: array[0..ne] of string;
         tabla: string;
      public
         procedure Limpia;
         procedure asigna(tcm:string; tvl:string);
         function carga(ttabla: string): string;
  end;

He comprobado que tampoco puedo asignar anda a "tabla". en el watch dice lomismo que el array.

[[ArdiIIa]]

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.

object Form1: TForm1
  Left = 436
  Top = 248
  Width = 273
  Height = 308
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 168
    Top = 216
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 32
    Top = 32
    Width = 209
    Height = 153
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end
end

Saludos y suerte

[Cecilio]

Muchas gracias ArdiIIa

Mira lo que era:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Msql := Tsql.create;
end;

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 :

Insert into Articulo ('Codigo','Nombre','PVP','Colo') value ('002','Pelota','25.2','blanca')

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.

[[ArdiIIa]]

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.