Suche bestimmten Wert in Memo und zeige mir den neben stehenden Wert an im Edit feld

[PhilmacFLy]

Zitat von Furtbichler:

Zitat von PhilmacFLy:

nein wieso du gibst zu dem Code noch ein array of char mit wo das wort drin steht

Na ja, und wenn das Wort 4 Zeichen lang ist? Oder nur 2?

Delphi-Quellcode:

function textsuch(charrarr: Array of Char; length, count, pos: integer): Integer;
begin
   if count = length then
        begin
          Result := pos - count;
     exit;
        end;
   if Memo1.Lines.Text[pos] = charrarr[count] then
     Result := textsuch(charrarr, length, count+1, pos+1)
   else
     Result := -1;
end;