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...


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...


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.