Leer archivo txt letra por letra

[intercubo]

hola:


soy nuevo en delphi y quisiera saber como puedo leer un archivo de texto .txt letra por letra en un ciclo.

entre mas explicitos sean mejor, les agradezco mucho!

[juanelo]

Empezado por intercubo

hola:


soy nuevo en delphi y quisiera saber como puedo leer un archivo de texto .txt letra por letra en un ciclo.

entre mas explicitos sean mejor, les agradezco mucho!

Hola Intercubo, te invito a que leas la guia de estilo de club, y porque no muestras el código que ya tienes (porque supongo que ya lo intentaste hacer) y en base a eso te podremos ayudar.
Saludos

[ixMike]

Con un archivo de tipo. Concretamente Char. Sería algo así.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  N: Integer;
  C: Char;
  F: File Of Char;
begin
  AssignFile(F, Edit1.text);
  Reset(F);
  for N:=0 to FileSize(F) - 1 do
    begin
      Seek(F, N);
      Read(F, C);
      Memo1.Text:=Memo1.Text+C;
    end;
  CloseFile(F);
end;

Pero aviso, esto ya lo he hecho, y para archivos considerablemente granes es muy lento. Incluso si haces Memo1.Lines.BeginUpdate antes de empezar, y Memo1.Lines.EndUpdate después de acabar, sigue siendo lento para archivos de varios Megabytes.

Por cierto, intercubo, bienvenido al club. Haz caso de lo que dice juanelo la próxima vez.


Salu2.

[[cHackAll]]

He editado mi post porque no era instructivo.

El anterior código de ixMike funciona a la perfeccioón, sin embargo no es necesario hacer el Seek antes de cada lectura si es que el resultado esperado debe es secuencial y no aleatorio. Las funciones de lectura en la mayoria de los casos (si no es en todos), se encargan de realizar dicha opertación internamente.

Saludos

[intercubo]

hola:

me marca un error I/O 103 en el siguiente codigo:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Col: Integer;
  Edo: Integer;
  N: Integer;
  C: Char;
  F: File Of Char;
  x: Integer;
begin
  Col:=0;
  Edo:=1;
  AssignFile(F, Edit1.text);
  Reset(F);
  for N:=0 to FileSize(F) - 1 do
    begin
     Read(F, C);
      for x:=0 to 25 do
        begin
          if C=Matriz[0][x] then
            begin
              Col:=x;
              Edo:=StrToInt(Matriz[Edo][Col]);
            end;
            Memo1.Text:=Memo1.Text+Matriz[Edo][Col];
        end;
  CloseFile(F);
    end;
end;

estuve leyendo que el problema es que no se use el Reset(F) pero yo si lo tengo, de un momento a otro comenzo a fallar no se que hice mal.

gracias!

[ixMike]

Me parece que ese error se produce cuando el archivo no existe. Es decir, el archivo escrito en Edit1.Text tiene que existir. Prueba con esto:

Código Delphi [-]
If not FileExists(Edit1.Text) then
  begin
  ShowMessage('El archivo "'+Edit1.text+'" no existe.');
  Exit;
  end;
AsignFile(F, Edit1.text);
{...}

[intercubo]

el archivo si existe y tiene caracteres, he tratado cambiando el nombre de archivo pero sigue pasando lo mismo. cambio de nombre en edit1.text y en el archivo. y como dije antes si existe y la ruta es correcta.

agradeceria que me dijeran otras opciones porfavor.

mil gracias!