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
Delphi-Quellcode:
for counter:= 1 to laenge do
begin
if UpperCase(s[counter]) = 'A' then
begin
countA:= countA + 1;
countDEF:= countDEF + 1;
end;
if UpperCase(s[counter]) = 'B' then
begin
countB:= countB + 1;
countDEF:= countDEF + 1;
end;
und so weite..
jetzt habe ich diese count-Variablen rausgeschmissen und ein Array von 1 bis 26 erstellt.
jetzt habe ich aber das Problem, dass ich ja ne schleife mit möglichst nur einer if-Anweisung möchte.
Delphi-Quellcode:
for counter:= 1 to laenge do
begin
if UpperCase(s[counter]) = 'A' then
begin
countArray[1]:= countArray[1] + 1;
countDEF:= countDEF + 1;
end;
if UpperCase(s[counter]) = 'B' then
begin
countArray[2]:= countArray[2] + 1;
countDEF:= countDEF + 1;
end;
wie bekomm ichs jetzt hin, dass ich, wenn ich für das countArray einen counter einsetze, auch die Buchstaben in eine Art Liste zusammenfasse. Diese müssen ja sonst immer einzeln angegeben werden.
bin grad, während ich das schreibe, auf die Idee gekommen, das mit
Ascii-codes zu machen.
Aber es gibt dann noch ein kleines Problem.
Am Ende werden die einzelnen Einträge Labels zugeordnet.
Delphi-Quellcode:
OutA.Caption:= IntToStr(countA);
OutB.Caption:= IntToStr(countB);
OutC.Caption:= IntToStr(countC);
Wie kann ich das nun mit den Namen der Labels automatisieren. Ist zwar nicht überlebenswichtig, wäre aber gut.
[edit=Sharky]Code-Tags in Delphi-Tags geändert. Mfg, Sharky[/edit]