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
public
end;
var
Form1: TForm1;
texto : array[0..99] of array[0..100] of Char;
implementation
{$R *.dfm}
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....