Programa de facturación "Ayuda"

[snake25237]

Hola a todos, vengo con un pequeño problema a ver si me pueden echar la mano. Tengo un ejercicio de la universidad el cual consiste en un programa de facturación, tengo un 80% del programa listo solo tengo un inconveniente: necesito pedir al cliente No. cédula de identidad, nombre y domicilio, para este proceso debo crear 3 array que almacenen CI, nombre y domicilio que se ingresan, de tal manera que si una persona vuelve a comprar solo precise del No de C.I... cuando se ingrese el numero de cédula el nombre y domicilio se deben llenar automáticamente. Realice un código con un botón para introducir los datos y otro botón para buscar clientes pero realmente no me funciona . acá esta el código no tengo idea si es asi que se hace solo improvise

Código SQL [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type
   tipo_arreglo = array[1..10] of string;
var
  Form1: TForm1;
  i: integer;
  ide,name,addres:string;
  dato_c,dato_n,dato_d: tipo_arreglo;
implementation

{$R *.dfm}

procedure llenar (base:tipo_arreglo;c:string);
begin
c:= inputbox('llenar datos','ingrese datos','');
base[i]:= c;
 end;


procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
showmessage('Introduzca la C.I./R.I.F');
llenar(dato_c,ide);
showmessage('Introduzca el nombre');
llenar(dato_n,name) ;
showmessage('Introduzca la direccion');
llenar(dato_d,addres);
end;



procedure TForm1.Button3Click(Sender: TObject);
var
a:integer;
valor: string;
begin
 valor:= inputbox('llenar','introduzca el rif o ci','0');
for a:=1 to i do
begin
if valor = dato_c[i] then
end;
begin
listbox1.Items.Add(dato_c[i]);
listbox1.Items.Add (dato_n[i]);
listbox1.Items.Add (dato_d[i]);

end;
if valor<> dato_c[i] then
showmessage('cliente no encontrado');
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

end.

muchas gracias de antemano.

[[Caral]]

Hola
No entiendo la necesidad de un array.
Usas Base de datos?, cual?, es un registro?.
Saludos

[snake25237]

hola caral como estas..?? gracias por la pronta respuesta. No uso base de datos ni siquiera se usarlas se supone que aun no debo usar bases de datos ya que eso es contenido del próximo curso, lo que le entendí al docente fue que en un array almaceno: [CI,nombre, dirección] eso es lo mas lógico que se me ocurrió hacer :-(

[[Caral]]

Hola
Pero donde almacenas la informacion?
Saludos

[snake25237]

Supongo que un array de tres elementos tipo string osea el nombre, cedula y dirección.

explico lo que intente hacer en el codigo que coloque, arreglo[1] va a almacenar un nombre una cedula y una direccion, luego arreglo[2] almacena otro nombre direccion y CI y asi sucesivamente. Si se fija la variable base la declare array en la posicion [i] esa i cambia su valor cada vez que corre el codigo. Eso tiene sentido..??? la verdad eso lo invente en mi desesperación por realizar el ejercicio

[[Caral]]

Hola
Lo que pasa es que no entiendo, el array que dices puede ser que coloque los datos en la pantalla, pero no entiendo como almacenas la información, donde la guardas?.
No veo en el codigo ni siquiera un record, un archivo texr, dat, ini, una bd, nada.
Por eso no entiendo lo que pretendes hacer.
Saludos