Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
19. Jun 2006
hmm also habs mal zum testen erstellt, aber irgendwie blick ich nicht ganz durch. Ich kann dem Array keinen Typ "Label" geben, dann meckert er. Und wie muss ich dann später den Namen der Labels einfügen?
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
19. Jun 2006
Ah danke, einfach nur die Variablen vertauscht.
So, es läuft, ich bin zufrieden. Jetzt wäre es noch toll, wenn ich diese riesige Liste an Zuweisungen wegbekäme.
OutA.Caption:= IntToStr(countArray);
OutB.Caption:= IntToStr(countArray);
OutC.Caption:= IntToStr(countArray);
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
19. Jun 2006
hmm, kann mir irgenwer erklären, warum der höchste Wert (wir hier provisorisch uf Label1 ausgeben) falsch ist?
procedure TForm1.StartClick(Sender: TObject);
var
s:String;
counterMAIN:Integer;
counterSET:Integer;
counterCHAR:Integer;
counterCOPY:Integer;
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
17. Jun 2006
ah sehr gut, jetzt funktioniert es wunderbar. Jetzt muss ich nur noch wissen, wie ich bei der Label-Zuordung eine Schleife einbauen kann, und wie ich den höchsten eintrag im Array rausbekomme.
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
17. Jun 2006
upps, wie dumm von mir, danke.
o man, wie peinlich .... :oops:
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
17. Jun 2006
hmm, also ich habs jetzt mal provisorisch gemacht mit nen labels, aber das ist nicht das Problem.
Das Problem besteht darin, dass ich am Ende für jeden Buchstaben die Häufigkeit "0" rausbekomme. Der "counterDEF", der die Anzahl aller zulässigen Buchstaben zählt, stimmt.
Ich verstehe einfach nict, woran es liegt.
procedure TForm1.StartClick(Sender: TObject);
var
s:String;
...
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
17. Jun 2006
hmm, also ich hab mir das jetzt mal zurechtgelget, aber es ergibt sich ein neues Problem.
ich hatte ja vorher ne schleife, in der für jeden Buchstaben eine if-anweisung befand
for counter:= 1 to laenge do
begin
if UpperCase(s) = 'A' then
begin
countA:= countA + 1;
countDEF:= countDEF + 1;
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
16. Jun 2006
Hmm, ja, dann werd ich wohl doch nochmal alles ummodeln. Ich bin zu spät auf die Idee gekommen, ein array zu machen.
Forum: Object-Pascal / Delphi-Language
Delphi
by the_source,
16. Jun 2006
Hallo,
bei meinem derzeitigen Programm handelt es sich um ein Kryptoanalyse-tool. Seine Hauptfunktion besteht darin, die Häufigkeit von Buchstaben in einem Text zu zählen und eine Statistik zu erstellen.
In einer Schleife wird bei jeden Buchstaben ein entsprechender Zähler erhöht, bis das Textende erreicht ist. Die die Werte der Zähler (countA, countB....) werden dann ausgegeben, sodass über...