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:
Código:
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.
