Hvor mange gange tegnet forekommer i strengen s

function Antaloptraeden(tegn: char, s: string): integer;

var
  res, i : integer;

begin
  res := 0;
  for i := 1 to length(s) do if s[i]=tegn then res := res + 1;
  antaloptraeden := res;
end;

Ikke testet - men det ser OK ud.

Tark

Hvorfor skal du have den her linje med:
antaloptraeden := res; ?

res er en temporær variabel.

Som skal assignes over i funktions resulatet.

jamen, hvor skal den så vises henne? Altså resultatet, hvor skal den vises?

Det bestemmer du jo.

Du skriver:

et-aller-andet := antaloptraeden('x',strval):

Hvis jeg skulle gætte:

Edit2.Text := inttostr(antaloptraeden('x',Edit1.Text));

Sådan just for the record .. Er det ikke lidt nemmere blot at skrive :

function Antaloptraeden(tegn: char, s: string): integer;
var
  i : integer;
begin
  Result := 0;
  for i := 1 to length(s) do
    if s[i]= tegn then
      Inc(Result);
end;

Jens b

Tjo.

Men nu koder jeg faktisk kun i standard Pascal.

Og result er en Delphi (eller Object Pascal) specifik feature.