Leer archivo txt letra por letra

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

[[Delphius]]

¿En que parte del código te da error?
¿Seguro que es ese el error?

Saludos,

[[felipe88]]

Porque no pruebas creando un StringList en el que cargues tu archivo y de alli intentas asignar a cada linea se texto como un String; que en resumidas cuentas es un vector, con lo que podrias mediante una sentencia for recorrer caracter por caracter del texto...

[[cHackAll]]

Empezado por intercubo

...agradeceria que me dijeran otras opciones...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var hFile: Cardinal; Value: Char;
begin
 hFile := _lopen(PChar(Edit1.Text), OF_READ);
 if hFile = -1 then Exit; // No se pudo abrir el archivo
 while LongBool(_lread(hFile, @Value, 1)) do
  Memo1.Text := Memo1.Text + Value;
 CloseHandle(hFile);
end;

[PepeLolo]

Otro ejemplo totalmente funcional.

Código Delphi [-]
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Efile: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
Var cStrings :TStrings;
    nLeng, i :Integer;
    cLetra :Char;
begin
  cStrings := TStrings.Create;
  try
    cStrings.LoadFromFile(Efile.text);
    nLeng := Length(cStrings.Text);
    for I := 0 to nLeng do
     begin
        cLetra := cStrings.Text[i];   // Leer letra a letra o mejor dicho carácter a carácter
        // lo que quieras hacer con dicha letra
     end;
  finally
     cStrings.free;
  end;
end;
end.

un saludo

[[felipe88]]

Empezado por PepeLolo

Otro ejemplo totalmente funcional.

Código Delphi [-]
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Efile: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
Var cStrings :TStrings;
    nLeng, i :Integer;
    cLetra :Char;
begin
  cStrings := TStrings.Create;
  try
    cStrings.LoadFromFile(Efile.text);
    nLeng := Length(cStrings.Text);
    for I := 0 to nLeng do
     begin
        cLetra := cStrings.Text[i];   // Leer letra a letra o mejor dicho carácter a carácter
        // lo que quieras hacer con dicha letra
     end;
  finally
     cStrings.free;
  end;
end;
end.

un saludo

A algo asi me referia... el ejemplo de PepeLolo es totalmente funcional...

[[cHackAll]]

Empezado por felipe88

A algo asi me referia... el ejemplo de PepeLolo es totalmente funcional...

Vaya... debo repasar esto del Delphi que creo que no es lo mio

[[felipe88]]

Empezado por cHackAll

Vaya... debo repasar esto del Delphi que creo que no es lo mio

... no te preocupes cHackAll... a lo que me refiero es que asi me lo imagine yo e igualmente funciona, yo tambien soy novato... Pero definitivamente tu tienes una idea simple y concreta... tampoco pienso entrar en polemica por cual sea el mejor algoritmo, eso es decision de quien lo usara...