Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Imprimir un arreglo (https://www.clubdelphi.com/foros/showthread.php?t=21370)

Luli 15-05-2005 06:50:00

Imprimir un arreglo
 
Hola, ultimamente he molestado mucho pero no sé a donde más acudir, es que tengo otra duda, necesito imprimir el contenido de un arreglo en un form pero se me ocurre que se ve mejor dentro de un TMemo o dentro de un TEditBox o algo así, pero la unica forma en que sé imprimir es en un TMemo y de esta manera:

TMemo1.Lines.Add(x);

y para imprimir el arreglo lo hice asi:

Código PHP:

procedure TNodo_Escritura.FormCreate(Sender:TObject);
var 
w2:integer;
    
begin
    Memo1
.Clear;
    
w2:=0;
        for 
w2:=1 to largo do  //largo es la longitud del arreglo que es 100
        
begin
             Memo1
.lines.Add(arreglo1 [w2]);                                  
        
end;
    
end

arreglo1 es el nombre del arreglo y es de tipo string, pero obviamente este codigo me imprime el contenido del arreglo de forma vertical, es decir un caracter en cada linea del TMemo, por ejemplo si arreglo1 contiene "gatito", me imprime:
g
a
t
i
t
o

y lo que necesito es que me lo imprima horizontalmente: gatito... Busqué en la ayuda del delphi pero no encontré algo que me sirviera mucho, de cualquier manera seguiré buscando.
Espero me puedan ayudar con esto, si no se puede con un Memo tal vez con un EditBox o algo así, muchas gracias de antemano

roman 15-05-2005 07:51:32

Código Delphi [-]
var
  Linea: String;

Linea := '';
for w2:=1 to largo do  //largo es la longitud del arreglo que es 100
begin
  Linea := Linea + arreglo1[w2];
end;

Memo1.lines.Add(Linea);

// Saludos

roman 15-05-2005 07:57:55

¿Qué clase de arreglo es arreglo1?

Si es array[1..100] of Char puedes simplemente hacer:

Memo1.Lines.Add(arreglo1);

Pregunta: si estás manejando cadenas de caracteres ¿por qué usas arreglos en lugar de strings?

// Saludos


La franja horaria es GMT +2. Ahora son las 06:03:49.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi