Arreglo De Cadenas : String

[freelance]

Código Delphi [-]
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  // el buffer para el texto
  // ej. 100 x 100 caracteres
  texto : array[0..99] of array[0..100] of Char;
 
implementation
 
{$R *.dfm}
 
// x -> coordenada vertical
// y -> coordenada horizontal
 
procedure WordToPosHor(x, y: integer; TheWord: string);
var
   i: integer;
begin
   for i := 0 to length(TheWord)-1 do
      texto[x, y+i] := TheWord[i+1];
end;
 
procedure WordToPosVer(x, y: integer; TheWord: string);
var
   i: integer;
begin
   for i := 0 to length(TheWord)-1 do
      texto[x+i, y] := TheWord[i+1];
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
   i: integer;
begin
   FillChar(texto, 100*101, 32);
   WordToPosHor(5, 5, 'pepe');
   WordToPosVer(25, 25, 'ejemplo de palabra');
   WordToPosHor(15, 5, 'hola que tal');
   WordToPosHor(16, 5, 'hola que tal');
   Repaint;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
   h, i: integer;
begin
   Memo1.Clear;
   for i := 0 to 99 do
   begin
      texto[i,100] := #0;
      Memo1.Items.Add(strPas(texto[i]));
   end;
end;
 
end.

Prueba con esto.

Crea un formulario.
Pega un TListBox (y llámalo Memo1) en el formulario.

espero haberte ayudado....

[vtdeleon]

Saludos

freelance, utiliza las etiquetas para los codigos!

Edita tu mensaje para que veas como se usan.

[victor2023]

gracias por contestar mi pregunta, voy a probar con las dos ideas

[Alfredo]

interesante este tema... felicito a freelance...

es muy deseable que se lea la guia de estilo, pero es muy bueno cuando ademas se ayuda....