15 respuestas en este tema

[Caral]

Hola
Os explico:
Tengo un proceso el que trae 8 datos de un text.
Los datos los trae y los inserta en 1 edit.
Osea, coloca el primer dato, borra el edit, coloca el segundo y asi sucesivamente.
Lo que pretendo es colocar ocho edits y que busque el primer dato, lo coloque en el primer edit, el segundo en el segundo y asi con los otros.
Estaba usando este codigo, pero me coloca los datos en todos no de uno en uno.

delphi

    for e := 5 to 13 do begin
    Str := 'Edit' + IntToStr(e);
    comp := FindComponent(Str);
    TEdit(comp).Text:= Nuevo;

Nuevo es una variable que contiene el dato a colocar.
Como veis, el codigo lo que hace es encontrar los edit, pero los encuentra todos.
Espero se me entienda.
Saludos

[egostar]

Amigo, no entendí nada de nada 

Salud OS

[eduarcol]

Amigo el problema es que nuevo se debe cargar dentro del ciclo

delphi

for e := 5 to 13 do 
begin
    Nuevo := **Cargar un nuevo valor**
    Str := 'Edit' + IntToStr(e);
    comp := FindComponent(Str);
    TEdit(comp).Text:= Nuevo;

[Caral]

Hola
Voy a poner el codigo en el que estoy jugando a ver si lo entendéis mejor.

En el form encontraran un edit que dice ruta, ahi colocan la ruta del archivo text (que adjunto).
Lo que hace el codigo es:
Lee el archivo.
Para cuando encuentra un signo, en este caso una linea.
Inserta en el edit el dato y sigue con el siguiente.
A ver si lo entendéis.
Saludos

Archivos adjuntos

•  1668_54caf544d8e116b99c4e1286faa41870ecf6acea.zip   8,1KB   2 descargas

[Caral]

Hola
Lo que hace actualmente es:
Lee el archivo.
Envia un mensaje de que encontro el dato, osea, encontro la linea
Coloca el dato.

PERO, no lo va colocando edit por edit, lo va colocando en todos a la vez.
Saludos
PD: Me entretengo con estas cosas nuevas 

[egostar]

A ver amigo

delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  Lista,Lista1: TStringList;
  Str: String;
  I: Integer;
  comp: TComponent;
begin
  Lista := TStringList.Create;
  Lista1 := TStringList.Create;
 
  Lista.Delimiter := '|';
  Lista.StrictDelimiter := true;
 
  Lista1.LoadFromFile(Edit3.Text+'BD.TXT');
 
  Lista.DelimitedText := Lista1.Text;
  for I := 0 to Lista.Count - 1 do
  begin
    Str := 'Edit' + IntToStr(I+5);
    comp := FindComponent(Str);
    TEdit(comp).Text:= Lista.Strings[I];
    ShowMessage('encontre un | y guarde el dato');
  end;
end;

Salud OS

[Caral]

Hola
Me manda un error aqui:

delphi

Lista.StrictDelimiter := true;

Saludos

[egostar]

Hola
Me manda un error aqui:

delphi

Lista.StrictDelimiter := true;

Saludos

Ah caray, es que usted tiene D6, espere deje ver cual era la funcion en D6

Salud OS

[Caral]

Hola
Si se quita la linea esa funciona también.
Interesante codigo, mucho mas simple que lo que estaba haciendo.
Gracias amigo, asunto resuelto.
Saludos

[egostar]

Creo que en D6 se utilizaría así

delphi

  Lista.Delimiter := '|';
  Lista.QuoteChar := '|';
  Lista.DelimitedText := Lista1.Text;

Salud OS

[egostar]

Hola
Si se quita la linea esa funciona también.
Interesante codigo, mucho mas simple que lo que estaba haciendo.
Gracias amigo, asunto resuelto.
Saludos

Ah que bien, o sea que mi Turbo Delphi es mas estricto al separar las cadenas

Salud OS

[Caral]

Hola
Pero mira algo curioso.
Es tan estricto que no solo separa lo que encuentra con la linea vertical, tambien separa lo que tiene un espacio en blanco, cosa que no pretendia, ya que la idea es que si encuentra una linea en blanco o dos lineas verticales entonces haga otro recorrido empezando otra vez.
osea, empieza otra linea del archivo text y comenzo borrando los edits.
Saludos

[egostar]

Hola
Pero mira algo curioso.
Es tan estricto que no solo separa lo que encuentra con la linea vertical, tambien separa lo que tiene un espacio en blanco, cosa que no pretendia, ya que la idea es que si encuentra una linea en blanco o dos lineas verticales entonces haga otro recorrido empezando otra vez.
osea, empieza otra linea del archivo text y comenzo borrando los edits.
Saludos

Ah pero eso no estaba en el requerimiento original, necesitas pasar a la caja del Bar-Tolo y abrir un nuevo "ticket" para eso

Salud OS

[Caral]

Hola
No me vengas con cuentos.
Estaba solicitado correctamente, especificamente que encontrara la linea y guardara, no dije el espacio wey 
Si se te ocurre algo dilo amigo
Saludos

[egostar]

A ver veamos porque no te explicas bien wey

Que quieres que haga si hay un campo en blanco, que lea otra linea. otro archivo ????

Salud OS

[egostar]

Amigo, en un rato te veo, voy saliendo a casa

Salud OS