Bereinigen des Records

[inahurry]

Hi,

Zitat:

...wobei mir noch nicht ganz klar ist wieso er nach
der umänderung zu #0 den char komplett übersieht, wo doch in anzahl und haefig noch zahlen enthalten sind

nun, zuerst setzt du mit

d:=0; dein Flag auf 0. Es wird später nur dann auf 1 gestezt, wenn in datensatz.zeichen der aktuelle Buchstabe gefunden wurde:

Delphi-Quellcode:

            if b=datensatz[e].zeichen then
               begin
               datensatz[e].anzahl:=datensatz[e].anzahl+1;
               c:=0;
               d:=1;      // d gibt an ob der buchstabe schon zugeordnet wurde
               end
            else
                begin
                c:=c-1;  //c geht alle buchstaben durch
                e:=e-1;  // e ist hier der zähler um alle datensätze abzuklappern
                end;
            end;

und dann prüfst du dein Flag auf 0, also ob der aktuelle Buchstabe NICHT gefunden wurde. Nur dann initialisierst du die restlichen Datensatz-Felder mit den passenden Werten:

Delphi-Quellcode:

      if d=0 then
         begin
         zahl:=zahl+1;
         datensatz[zahl].zeichen:=b;
         datensatz[zahl].anzahl:=1
         end;

Habe ich dein Programm richtig verstanden