Pequeño problema con el componente tmemo

[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.