(Resolvido) Comparar Letras De Uma String

[Guest cidnei]

Gostaria de uma ajuda ou indicação de algum tutorial sobre como desenvolver um programinha de digitação. Ou alguma dica de como comparar uma determinada letra de uma string com o que esta sendo digitado.

Editado Outubro 14, 2007 por Micheus
MOVIDO: Use o forum para postar dúvidas, não sua sub-seção (Tutoriais & Dicas).

[Jhonas]

Vou dar a ideia inicial, e voce depois da uma mehorada ... ok

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var posicao, i  : integer;
begin
   posicao := length(trim(Edit2.Text)); // posiçao da letra digitada

   Label1.Caption := 'Posição da letra digitada = ' + inttostr(posicao); // mostra a posicao da letra

   Label2.Caption := edit1.text[posicao+1]; // mostra a letra na posição

    // compara a letra digitada com a letra da frase que esta no Edit1
  
 if AnsiCompareStr( key, edit1.text[posicao+1]) <> 0 then
     showmessage('Voce digitou letra errada!');

   label3.Caption := key;  // mostra a letra que foi digitada
end;

end.

Resumindo: No Edit1 voce coloca uma frase com maiusculas e minusculas

no edit2 limpo, voce vai digitar as mesmas letras que estão no edit1

Durante a digitação sera comparada as letras em suas respetivas posições, se forem iguais nada acontece, se forem diferentes sera dada a mensagem que voce digitou a letra errada.

Editado Outubro 16, 2007 por Jhonas

[Guest cidnei]

Valeu!!! Valeu mesmo.