meine StrCharCount geht nich...

[a3rosol]

hiho
hab mir ne StrCharCount fkt gebaut die die anzahl eines bestimmten zeichens in einem strinhg augeben soll

Delphi-Quellcode:

var
  Form1: TForm1;
     var wort,z: string; s,l:integer;
implementation

{$R *.DFM}

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

aber anscheinend gibt sie mir keinen wert zurück -.-
wo ist der fehler?

eine weitere frage: wo kann ich meine globalen variablen EINMAl definieren? mich ödet es an immer wort:= edit1.text; zu schreiben...

danke schonmal für eure hilfe

[mkinzler]

Ich würde auf die globalen Variablen verzichten und bei Bedarf lokale verwenden. Was ich auch beim result machen würde.

[a3rosol]

danke für deine meinung, aber aus gründen der faulheit ziehe ich es vor mit globals zu arbeiten
hat jemand schon ne lösung?

[thkerkmann]

Hi,

Delphi-Quellcode:

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

Du vergleichst hier einen Char wert (wort[i]) mit einem string (z).
Wie soll denn da was richtiges rauskommen?

Du musst den String in einzelne Worte zerlegen und dann mit deinem gesuchten Wort vergleichen.
Dann köntest Du Erfolg haben.

Du suchst doch wort in string oder ?

Gruss

[grenzgaenger]

jetzt sag mal, was willste denn hier überhaupt machen...

Delphi-Quellcode:

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

ich komm da irgendwie nicht drauss... was das soll ...

[himitsu]

Sicher daß du nur EIN Zeichen an z übergibst?


versuch's besser mal mit einem Char für Z, da kannst du dann nur einen Char übergeben und es sollte gehn

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;

[Nuclear-Ping]

Zitat von a3rosol:

danke für deine meinung, aber aus gründen der faulheit ziehe ich es vor mit globals zu arbeiten Wink
hat jemand schon ne lösung?

Dann solltest du vlt. lieber mit Basic arbeiten?

Delphi ist "Objekt Pascal" und globale Variablen widersprechen dem Konzept von "objekt orientierter Programmierung". Sie sollten nur verwendet werden, wenn es nicht anders geht.

[a3rosol]

wie wandel ich einen string in ein char um?
ja ich bin mir sicher dass ich nur ein zeichen suchen will

[mkinzler]

z:= edit4.Text[1];

[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;