Abgleich

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von songoku · begonnen am 28. Nov 2012 · letzter Beitrag vom 28. Nov 2012

Vorheriger Beitrag

Nächster Beitrag

songoku

Registriert seit: 28. Nov 2012
3 Beiträge

Abgleich

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.

markieren

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';