meine StrCharCount geht nich...

[grenzgaenger]

Zitat von a3rosol:

Zitat von mkinzler:

z:= edit4.Text[1];

du meine güte...sooo einfach?
vielen lieben dank! auch für die tips mit den globals
aber ist das denn nich immer zu aufwändig immer die gleiche variable zu deklarieren?

für die nachwelt die funktion:

Delphi-Quellcode:

function StrCharCount(wort: string; C: Char): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(wort) do
    if wort[I] = C then
      Inc(Result);
end;

und die procedure

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var c:char;
begin
      c:= edit4.text[1];
      edit5.Text:=IntToStr(StrCharCount(wort,c));
end;

weshalb willste das deklarieren...??? geht do so viel einfacher...

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
begin
      edit5.Text:=IntToStr(StrCharCount(wort, edit4.text[1]));
end;