Hallo,
ich habe ein Programm geschrieben, welches ermitteln soll wie oft eine Zahl in einem Array vorkommt.
Leider erhalte ich als Ergebnis immer 1.
Ist die Zahl 2* vorhanden, erhalte ich als Ergebnis 0 mal vorhanden.
Delphi-Quellcode:
begin
b:=0;
a:=strtoint(Edit1.text);
for c:=Memo1.lines.count - 1 downto 0
do
begin
if c=a then b:=b+1;
else if a<>b then Label1.caption:= ' Nicht vorhanden ' ;
end;
Label1.caption:=inttostr(b) + ' mal vorhanden';