FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Un array con problemas
Hola,
estoy intentado hacer un objeto. (mi primero) tengo declarados dos arrays: Código:
cm: array[0..ne] of string; vl: array[0..ne] of string; Y en un metodo para limpiarlos hay un for asi: Código:
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. |
#2
|
||||
|
||||
Tal vez el problema sea esto...
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
#3
|
|||
|
|||
Lo probé antes y no funcionó.
La clase esta declarada así: Código:
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; |
#4
|
||||
|
||||
Hola cecilio
A ver si probando esto aclaramos algo...
Código:
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
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO Última edición por ArdiIIa fecha: 15-08-2007 a las 14:48:46. |
#5
|
|||
|
|||
Muchas gracias ArdiIIa
Mira lo que era: Código:
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 : Código:
Insert into Articulo ('Codigo','Nombre','PVP','Colo') value ('002','Pelota','25.2','blanca') 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. Última edición por Cecilio fecha: 15-08-2007 a las 15:44:08. |
#6
|
||||
|
||||
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.
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problemas con el array | CottonMouth | OOP | 2 | 06-07-2007 05:40:30 |
BMP en un array | lacatella | Gráficos | 2 | 27-07-2006 20:36:27 |
Como Asignar Variable Tipo Array de Tform a otro Array del Mismo tipo | morfeo21 | Varios | 5 | 17-08-2004 17:39:51 |
Array | esquerda21 | Varios | 7 | 26-02-2004 19:27:21 |
problemas con format y array!!! | adfa | OOP | 2 | 30-08-2003 03:18:29 |
|