Pequeño problema con el componente tmemo

[gaska]

Hola. Mi problema es el siguiente. Necesito verificar una serie de condiciones sintacticas de un texto introducido en un componente tmemo, para lo cual quiero ir leyendo el texto caracter a caracter recogiendolos mediante caracter:=panel.memo.lines.strings[fila][columna], pero tengo problemas con los saltos de linea. Si el texto empieza con algun salto de linea, al recoger el caracter salta una excepcion EAccessViolation. ¿Alguien me podria decir de que forma puedo hacer lo que me propongo para no tener problemas? Gracias.

[jachguate]

Pola Gaska.

Porque no pones un trozo de código de cómo lo estas haciendo ahora, asi es mas facil decirte donde está el fallo.

hasta luego.

[gaska]

Mi intencion es crear una funcion que devuelva el caracter del tmemo de la posicion indicada por las variables globales fila y columna. Para lo cual hago mas o menos lo siguiente:

function leer_caracter:char;
var
c:char;
begin
//Si existen caracteres para leer
if principal.MemoXml.Lines.Count>fila then begin
//Si nos encontramos en una linea vacia pasamos a la siguiente. Pense
//que este trozo me solucionaria el problema de los "intros", pero no.
if (length(principal.MemoXml.Lines.Strings[fila])=0) then begin
fila:=fila+1;
columna:=1;
end;
//Leemos el caracter sobre el que estamos situados. Aqui me da la
//excepcion EAccessViolation.
c:=principal.MemoXml.Lines.Strings[fila][columna];
end
else
//Si ya no quedan más caracteres por leer escribo el codigo #0
//de final de documento.
leer_caracter:=#0;
//Devuelvo el caracter recogido.
leer_caracter:=c;
end;{leer_caracter}

He pensado que la solucion pasaria por usar la propiedad text en lugar de intentarlo por lineas, pero no se muy bien como. Soy algo novato.

[jachguate]

Hola.

En primer lugar, te recomiendo el uso de la etiqueta code para que tus trozos de código salgan correctamente indentados.

En segundo lugar, yo creo que el problema no te está ocurriendo en la primera línea, aunque no se que tanto has depurado el código y cual sea tu habilidad para detectar el problema. Puedo equivocarme, pero a simple vista me parece que quedaria mejor algo como:

FFila debe inicializarse con 0
FColumna debe inicializarse con 1


Function leer_caracter:char;

begin
  //Si existen caracteres para leer
  if principal.MemoXml.Lines.Count > FFila then 
  begin
    //Si se ha excedido la longitud de la línea, pasamos a la siguiente
    if (length(principal.MemoXml.Lines.Strings[FFila]) < FColumna) then 
    begin
      FFila    := FFila + 1;
      FColumna := 1;
      result  := #0;
    end
    else Begin
      //Leemos el caracter sobre el que estamos situados. 
      result := principal.MemoXml.Lines.Strings[FFila][FColumna];
      FColumna := FColumna + 1;
    end
  end
  else
    //Si ya no quedan más caracteres por leer devuelve el codigo #6 (fin de archivo)
    result := #6;
end;

Esta rutina devolverá #0 en algunas ocasiones, debido a que la línea se ha agotado (o estaba en blanco)

El código anterior debiera fallar cuando hay dos lineas en blanco seguidas, además no avanzaba la columna.

funcionará sobre archivos de texto, claramente... ahora el "marcador" de fin de archivo es el caracter #6.

No lo he probado, asi que podria ni compilar, pero debiera darte una nueva idea..

Hasta luego.

[jachguate]

Aclaro que no estoy cuestionando el hecho que tengas una función (y no un método) para hacer esta tarea...

Si lo queres hacer con la propiedad text... también valdria, aunque igual tenes que ignorar los crlf's, y hacerlo todo sobre un solo string que contendrá todas las líneas.

Hasta luego.

[gaska]

Parece que si funciona. Muchas gracias.