DBR Delphi-Ecke

// In ein Memo oder Richedit wird festgestellt, wie der Buchstabe an einer
// bestimmten Stelle heißt.

// Getestet mit D4 unter WinME

function WelcherBuchstabe(RE: TCustomMemo; zeile, stelle: integer): char; 
begin 
  result := #0; 
  dec(zeile); 
  if (RE.lines[zeile] <> '') and (stelle > 0) then 
    if length(RE.lines[zeile]) >= stelle then 
      result := RE.lines[zeile][stelle]; 
end; 
 
// Beispielaufruf: 5. Zeichen in der 1. Zeile 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  zeile, buchstabe: integer; 
  c: char; 
begin 
  zeile := 1; 
  buchstabe := 5; 
  c := WelcherBuchstabe(Richedit1, zeile, buchstabe); 
  if c < #32 then showmessage('nicht vorhanden') 
  else showmessage(c); 
end;