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