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;