Buenas!

Bueno pues en el bachillerato vi Delphi y pues obviamente hice varios programas para practicar y pues próximamente publicaré varios de estos programas en los proximos días en la categoría de "programas rapidos".

Pues en pocas palabras este programa lo que hace es, a partir de una dirección de un archivo de texto (c:\file.txt por ejemplo) , lo abre, lo imprime en un objeto de tipo "memo" y al precionar el boton "Contar", te cuenta las vocales, consonantes, digitos, espacios en blanco, caracteres especiales y letras.

Es un sencillo ejemplo que te ayudará a entender como se manejan los archivos secuenciales en Delphi.
Aquí esta el codigo fuente:

PLAIN TEXT
DELPHI:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Memo: TMemo;
  12.     archivo: TEdit;
  13.     Button1: TButton;
  14.     Button2: TButton;
  15.     Button3: TButton;
  16.     Button4: TButton;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     Label5: TLabel;
  22.     Label6: TLabel;
  23.     letras: TLabel;
  24.     digitos: TLabel;
  25.     blancos: TLabel;
  26.     caracteres: TLabel;
  27.     consonantes: TLabel;
  28.     vocales: TLabel;
  29.     procedure Button4Click(Sender: TObject);
  30.     procedure Button3Click(Sender: TObject);
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure Button2Click(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. {$R *.dfm}
  45.  
  46. procedure TForm1.Button4Click(Sender: TObject);
  47.  begin
  48.    form1.close
  49.  end;
  50.  
  51. procedure TForm1.Button3Click(Sender: TObject);
  52.  begin
  53.    archivo.Text:='';
  54.    letras.caption:='';
  55.    digitos.caption:='';
  56.    blancos.caption:='';
  57.    caracteres.caption:='';
  58.    vocales.caption:='';
  59.    consonantes.caption:='';
  60.    memo.Text:='';
  61.    memo.SetFocus;
  62. end;
  63.  
  64. procedure TForm1.Button1Click(Sender: TObject);
  65.  begin
  66.    memo.Lines.LoadFromFile(archivo.text);
  67.  end;
  68.  
  69. procedure TForm1.Button2Click(Sender: TObject);
  70.  var
  71.     l,d,b,v,c,ce,a,band:integer;
  72.     x:char;
  73.  begin
  74.     l:=0;
  75.     d:=0;
  76.     b:=0;
  77.     v:=0;
  78.     c:=0;
  79.     ce:=0;
  80.     a:=0;
  81.  
  82.     while  a<>length(memo.Text) do
  83.      begin
  84.        band:=0;
  85.        a:=a+1;
  86.        x:=memo.text[a];
  87.  
  88.        if x in ['A'..'Z','a'..'z','ñ','Ñ','á','é','í','ó','ú','Ã','É','Ã','Ó','Ú'] then
  89.         begin
  90.            l:=l+1;
  91.            band:=1;
  92.         end;
  93.  
  94.        if x in ['0'..'9'] then
  95.         begin
  96.          d:=d+1;
  97.          band:=1;
  98.        end;
  99.  
  100.        if x=' ' then
  101.         begin
  102.           b:=b+1;
  103.           band:=1;
  104.         end;
  105.  
  106.        if x in ['a','e','i','o','u','A','E','I','O','U','á','é','í','ó','ú','Ã','É','Ã','Ó','Ú'] then
  107.         begin
  108.           v:=v+1;
  109.           band:=1;
  110.         end;
  111.  
  112.        if band=0 then
  113.          ce:=ce+1;
  114.  
  115.      end;
  116.  
  117.      letras.caption:=inttostr(l);
  118.      digitos.caption:=inttostr(d);
  119.      blancos.caption:=inttostr(b);
  120.      vocales.caption:=inttostr(v);
  121.      consonantes.caption:=inttostr(l-v);
  122.      caracteres.caption:=inttostr(ce);
  123.  end;
  124.  
  125. end.

Y como veras, la linea clave para abrir el archivo es esta:

PLAIN TEXT
DELPHI:
  1. memo.Lines.LoadFromFile(archivo.text);

Y bueno espero y te sirva de algo :p aquí te dejo los archivos para que los descargues...

Saludos!