Ayuda con este problema

[emiliano_b]

Empezado por Caral

Hola amigo.
Si te fijas en lo que solicita lo único que le falta pedir es que imprima jejeje.
Muchas veces hago estos programas para ayudar, ya me conoces, pero esta vez pide y ni siquiera dice con que bd trabaja.
Yo quiero ganar mas dinero, mas clientes, un menú con caviar y por razones de trabajo no lo puedo tener, alguien me ayuda? jejeje.
Saludos

no hay base de datos aca amigo... es un trabajo practico para principiantes, y si queres caviar y eso pegate una vuelta por asa, por ahi tenga.

[[Caral]]

Hola
Bueno, me lo gane y lo acepto.
Curioso, te piden hacer un programa que:

Nuevo, Abrir, Guardar, Agregar Cliente, Eliminar Cliente, Cerrar

ademas:

Buscar Cliente x DNI, Listado de clientes, Lista de clientes con saldo positivo, Lista de clientes con saldo negativo.

Y no sacas los datos de una BD?.
De donde sacan los datos?, de un archivo texto, excel, etc. etc.????.
Interesante tarea.
Saludos

[emiliano_b]

Exacto, de un txt...meter lo datos los estoy metiendo en el txt..pero no me los guarda bien, imagino que estara mal el tipo de dato, ahora lo estoy viendo...
pero efectivamente, guarda en una bd, por lo que hay que buscar en cada linea, bueno, y despues en algunos casos hay que mostrar en los mismo edit que uso para ingreasar datos que se buscan a treaves de un DNI..o cuando quieero ver todos los datos en una stringrid..

[Casimiro Noteví]

Deberás ir paso a paso, empieza con lo que más falta te haga, nos explicas el problema, te lo resolvemos y vueltas a empezar con el siguiente problema, ¿ok?

[emiliano_b]

Me acoste a dormir un rato porque no me daban mas las neuronas... Me parece bien tu propuesta, y lo primero es: porque no me guarda bien las cosas en el txt, y comohago saltos de linea!!! Les paso el codigo.
en la unit2:

procedure TArchivo.AgregarCliente(c:Cliente;var b:byte);
  begin
  {$I-}
  Seek(Archi, FileSize(archi));
  {$I+};
  b:=IOResult;
    If b=0 then
      Write(Archi,c);
  end;

en la unit1

procedure TForm1.AgregarCliente1Click(Sender: TObject);
var c:Cliente; b:byte;
  begin
  Edit1.ReadOnly:=false;
  Edit2.ReadOnly:=false;
  Edit4.ReadOnly:=false;
  c.nombres:=Edit1.Text;
  c.Apellido:=Edit2.Text;
  c.DNI:=StrToInt(Edit3.Text);
  c.saldo:=StrToFloat(Edit4.Text);
    Archivo.AgregarCliente(c,b);
    If b<>0 then ShowMessage('No se pudo agregar el registro. Seguramente no abrió el archivo correspondiente.')
    else ShowMessage('Se ha agregado el registro');
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  end;

asi me imprime en el txt:Juan t™ i Carlos& t™ & Á6* Tö u,;~Jose t™ i Perez t™ & Á6* Tö u,;~
nose rian mucho, estoy aprendiendo...

[emiliano_b]

Gente, he podido avanzar astante... tengo algunos detalles nomas.... (ademas de algunos errores menores que ya voy resolviendo...

1ero.. puedo realizar busquedas bien en el txt con los datos que agrego.. se
ve que estono es php, porque ahi yo puedo leer sin problemas lo que escribo a partir de un archivo.. sera el tipo de codificacion??, en fin, mientras pueda escribir y realizar busquedas en el txt no me interesa mucho.

2do.. La verdad que no encuentro como meter los datos del txt en un stringgrid, en esto no tengo ni idea... es una matriz de 4 elementos.

3ro.. como hago una validadcion del tipo siguiente para usar un mismo boton y no tener que agregar uno para cada procedimiento?? Intente algo del tipo:
if nuevo1Click.execute = true then
begin
end
if abrir1.click.execute = true then
.....

o .action.execute... no recuerdo bien como lohabia hecho.. la cuestion es que no me deja... y se preguntaran porq no lo hago directamente del main menu???...porque el profesor quiere que desde el main seleccione los campos que se habilitan nomas,.... cosas del chango este.
Gracias de nuevo... aunque sea por las bardeadas o las criticas me encabronaron - enojaron lo suficiente para que lo haga..jajajaja
saludos

[Casimiro Noteví]

Empezado por emiliano_b

[..]
2do.. La verdad que no encuentro como meter los datos del txt en un stringgrid, en esto no tengo ni idea... es una matriz de 4 elementos.

si tu stringgrid se llama, ejemplo: Rejilla, es tan fácil como el "juego de los barquitos":

Rejilla[Fila,Columna] = "lo que sea";

0,0 - 0,1 - 0,2 - 0,3
1,0 - 1,1 - 1,2 - 1,3
2,0 - 2,1 - 2,2 - 2,3
3,0 - 3,1 - 3,2 - 3,3

[Casimiro Noteví]

Para que podamos leer mejor el código recuerda ponerlo entre etiquetas [code ] y [/code ]

"Cliente", ¿qué es, una estructura?
"c", ¿qué es, una instancia de "Cliente"?