Buchstaben prüfen lassen

[Orhan]

Hallo

Ich bitte um ihre Hilfe

Ich möchte in der Zeile (Richedit) einen Buchstaben prüfen lassen. Wenn der linke Buchstabe des Cursors z.B.: ein "a" ist, soll es eine Meldung geben...

Danke

[xineohp]

moin,

meinst du sowas wie:
If myRichEdit.Text[ myRichEdit.SelStart -1 ] then ... ?

[phXql]

@xineohp: mit dem 'a' noch dazu, dann stimmts

If myRichEdit.Text[ myRichEdit.SelStart] = 'a' then ... // Edit: NeutralGeneral hat ja recht

[Neutral General]

Delphi-Quellcode:

If RichEdit1.Text[RichEdit1.SelStart] = 'a' then
....

Das minus 1 stimmt nicht.

[Jens Schumann]

Hallo,
wie wäre es denn damit?

Delphi-Quellcode:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  With Sender as TRichEdit do
    begin
    If SelLength=0 then
      Label1.Caption:=Text[SelStart];
    end;
end;

[xineohp]

ok, das mit dem a hab ich beim Tippen einfach vergessen, und die -1 ... ichwar mir nicht sicher, von wo an SelStart zählt

[Neutral General]

Ich auch nicht
Aber ich habs mal grad ausprobiert

[Khabarakh]

Am logischsten wäre ja
If RichEdit1.Text[RichEdit1.SelStart-1+1] = 'a' then

[Orhan]

Hallo!

Ich danke für eure Hilfe.

Es hat wundebar funktioniert, wie ich es mir vorgestellt habe.

Ich habe nicht gewusst dass es so geht.

Noch eine Frage?

Wie kann ich den Cursor mit dem Button nach links und rechts laufen lassen.

Nochmals vielen Dank.

[alcaeus]

Zitat von Orhan:

Wie kann ich den Cursor mit dem Button nach links und rechts laufen lassen.

Einfach SelStart inkrementieren bzw. dekrementieren. Dabei keonnte aber auch noch SelLength eine Rolle spielen...

Greetz
alcaeus