Thema: Abgleich

Einzelnen Beitrag anzeigen

songoku

Registriert seit: 28. Nov 2012
3 Beiträge
 
#1

Abgleich

  Alt 28. Nov 2012, 07:34
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';

Geändert von songoku (28. Nov 2012 um 07:38 Uhr)
  Mit Zitat antworten Zitat