Leer archivo txt letra por letra

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

[intercubo]

Hola:
aki ando de nuevo, lo que pasa ahora esque quiero que cuando suceda un cierto evento el ciclo for no se incremente, y asi vuelva a leer el ultimo caracter que leyo.

hay alguna funcion para hacer eso, que desde cierto punto del ciclo for, por ejemplo desde dentro de un If le puedas mandar una orden al ciclo para que repita el ultimo giro, y no incremente la variable?

Código Delphi [-]
for N:=0 to FileSize(F) -1  do
    begin
      Seek(F, N);
      Read(F, C);
       for x:=0 to 2 do
        begin
      if C=Letras[x] then
              Col:=1;
        end;
        for x:=0 to 9 do
        begin
          if C=InttoStr(Numeros[x]) then
              Col:=3;
        end;
      for x:=0 to 25 do
        begin
          if C=columnas[x] then
            begin
              Col:=x;

            end;
        end;

              if Edo>=0 then
                Begin
                  Edo:=Matriz[Edo][Col];
                  Memo1.Text:=Memo1.Text+C;
                  Edit2.Text:=Edit2.Text+InttoStr(Edo);
                  Edit3.Text:=Edit3.Text+InttoStr(Col);
                  Lexema:=Lexema+C;
                End
              Else
                Begin
                  Edo:=0;
                  AQUI QUIERO QUE SE REGRESE Y NO INCREMENTE A N, PARA QUE PUEDA LEER EL ULTIMO CARACTER QUE LEYO
                end;
  CloseFile(F);
end;

gracias!