condicion de parada

[*Caro*]

Hola Anel Hernandez

Código Delphi [-]
repeat
    readln(fichero,saux);
    application.ProcessMessages;
 until LeftStr(saux, 2)='00';

Saluditos

[Anel Hernandez]

Gracias Caro. Pero una duda: leftStr no copia desde la posicion 0? al inicio del String?

fijate que en mi ejemplo yo copia 2 caracteres en la posicion 8 de un string que es mucho mas grande.

[ecfisa]

Hola Anel.

Probá de este modo:

Código Delphi [-]
...
var
  F: TextFile;
  s: string;
begin
  AssignFile(F, 'Archivo.TXT');
  Reset(F);
  repeat
    Readln(F, s);
  until (Copy(s,8,2) = '00') or Eof(F);
 CloseFile(F);
end;

Es importante incluir el fin de archivo en la condición de salida, por que si no llega a existir una cadena con los caracteres '00' en la posición evaluada ...

Un saludo.

[Anel Hernandez]

Perfecto! me faltaban los parentesis a mi condicion!

gracias