Analizador de sintaxis tipo Delphi y Visual Basic

Hi,
Mira, como me decís que es para practicar te dejo que hagas el código y te doy pistas. Lo que te conviene utilizar es un componente TRichEdit para poder cambiar tipo, tamaño y color de fragmentos de texto dentro de este.
Lo que tienes que hacer es agregar un poco de código con las clausulas para el chequeo de sintaxis en el evento OnChange del componente TRichEdit.
El código es muy simple ya que lo único que tienes que hacer es controlas la aparición de alguna cadena dentro de otro conjunto de cadenas (TString). Te recomiendo llevar algunas variables banderas para no tener que controlar todo el texto cada vez que se aprieta una tecla sino solo fragmentos cerca de la zona de actualización.
Espero que te sirva la ayuda y si necesitas el código te lo mando. Yo que vos pruebo hacerlo solo así vas agarrándole la mano.
Cualquier consulta que tengas no dudes en preguntarme.
Nahuelon..

Si me podes pasar el código te lo agradecería ya que yo lo he pensado como me lo decís pero tampoco me ha funcionado. Gracias.

Hi de nuevo,
Mira, acá te mando el código fuente de un Syntax Checker hecho en Delphi, utilice lo siguiente:
- Un teporizador Timer1 para que controlo la sintaxis cada N segundos (N=1 en este caso)
- Un TRichEdit (RichEdit1) donde se ingresa el texto ha chequear.
- Un TMemo (Palabras) donde se colocan las palabras que se quieren resaltar (if, for, begin, end, etc.)
- El código fuente de la aplicación es el siguiente:
******************************************
******************************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, richedit, ExtCtrls;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
palabras: TMemo;
Timer1: TTimer;
procedure RichEdit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
timer1.enabled := true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
palabras.Clear;
palabras.lines.Add('if');
palabras.lines.Add('then');
palabras.lines.Add('for');
palabras.lines.Add('to');
palabras.lines.Add('begin');
palabras.lines.Add('end');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i, j : integer;
posvieja : longint;
posfound : longint;
begin
with RichEdit1 do
begin
posvieja := selstart;
selstart := 0;
SelLength := length(text);
SelAttributes.Color := clBlack;
SelAttributes.Style := [];
for i := 0 to palabras.lines.Count - 1 do
begin
selstart := 0;
posfound := findtext(palabras.lines, selstart, length(text), [stWholeWord]);
while (posfound <> -1) do
begin
SelStart := posfound;
SelLength := length(palabras.lines);
SelAttributes.Color := clBlue;
SelAttributes.Style := SelAttributes.Style + [fsBold];
selstart := selstart + sellength;
SelLength := 0;
posfound := findtext(palabras.lines, selstart, length(text), [stWholeWord]);
end;
end;
selstart := posvieja;
end;
timer1.Enabled := false;
end;
end.
************************************
************************************
Fíjate que una vez hecho el chequeo se para el temporizador hasta que haya otro modificación.
Se puede realizar de una forma más eficiente pero esta es la más fácil de seguir paso a paso.
También se pueden agregar diversas capacidades, como distintos colores y tipos de letras para distintas palabras, (ej: las ":=" que se coloreen en rojo).
Las palabras las coloque en un TMemo para poder agregar palabras en tiempo de ejecución.
nahuelon..

Hola, ¿sabes qué no me funciono el código ese que me pasaste? Porque lo copio así tal cual esta y no pasa nada, osea, no me cambia de color ninguna de las palabras claves, ¿qué puede ser?