Memo-Feld: Zeile und Buchstabe auslesen

[s.h.a.r.k]

Mal schnell runtergetippt:

Delphi-Quellcode:

function GetMemoChar(const AMemo: TMemo; const ALine: Integer; const AIndex: Integer): Char;
begin
var
  LineNumber : Integer;
  Line : String;
begin
  Result := #0;
  LineNumber := 10;
  if (Memo1.Lines.Count > LineNumber) then
  begin
    Line := Memo1.Lines[0];
    if (AIndex > 0) and (AIndex <= Length(Line)) then
      Result := Line[AIndex];
  end;
end;

Hinweis: AIndex muss 1 oder größer sein, d.h. das erste Zeichen in einem String wird mit dem Index 1, das zweite mit Index 2 etc. angesprochen.

PS: Strings nehmen beliebig viele Zeichen auf.