tæl tegn i memo1

var
  Count : integer;
  st : string;
begin
  Count := 0;
  st := Memo1.Text; // Might add UpperCase()
  for i := 1 to length(st) do
    if st[i] = '|' then
      inc(Count); // More hack'ish: inc(Count,integer(st[i] = '|'));
  result := Count + 3;
end;

I dit eksempel bruger du length forkert. Den korrekte måde er length(Memo1.Text). Dernæst kalder du UpperCase ligeså mange gange som teksten er lang - det er ineffektivt. Desuden søger du efter '|', så det er unødvendigt. Sidst så har du opdaget set's - og det er også fint nok - bare ikke her.

koden der er spækket med fejl, prøv lige selv at tjekke den igennem

de fejl jeg får efter at have rettet lidt er:
For loop control variable must have ordinal type
Undeclared identifier: 'i'

Gu er min kode ikke fuld af fejl! Det eneste der manglede var en variabel ved navn 'i' (har testet det).

function TForm1.CountDelimiters : integer;
var
  i, Count : integer;
  st : string;
begin
  Count := 0;
  st := Memo1.Text; // Might add UpperCase()
  for i := 1 to length(st) do
    if st[i] = '|' then
      inc(Count);
  result := Count + 3;
end;

eller nørdens variant:

function TForm1.CountDelimiters : integer;
var
  i, Count : integer;
  st : string;
begin
  Count := 0;
  st := Memo1.Text; // Might add UpperCase()
  for i := 1 to length(st) do
    inc(Count,integer(st[i] = '|'));
  result := Count + 3;
end;

Har du kopieret koden eller skrev du den af? Jeg kopierede, lavede en funktion, pastede koden ind og tilføjede et i - og så virkede det.

my bad... hvordan får jeg så vist antallet i fx ShowMessage... den melder at den ikke kan bruge Integer or String sammen

tak for svaret har fundet ud af det nu :D