Hallo Leute, ich habe ein Problem und hoffe auf eure Hilfe.
Also die Aufgabe war ein Programm zu erstellen, bei dem eine beliebige Textdatei eingelesen werden soll. Die Buchstaben werden in Großbuchstaben umgewandelt und gezählt. und weiter...
Und ich habe Schwierigkeiten mit der Zählung der Buchstaben.
Ich habe so gemacht: ich habe mehrere Labels für jeweils A,B,C,... erstellt. Die heißen Lab65 bis Lab90
Jetzt weiß ich aber nicht, wie ich die Zahlen von Lab[Zahl] steigen soll. Kann mir vielleicht jemand erklären, pls?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
| procedure TForm1.Button1Click(Sender: TObject);
var
ZwZeile: String;
n, m, buchstaben, code,i: integer;
begin
if Opendialog1.Execute then
begin
ListBox1.Clear;
edit1.Text := Opendialog1.FileName;
ListBox1.Items.LoadFromFile(Opendialog1.FileName);
buchstaben:=0;
i := 0;
For n := 0 to (ListBox1.Items.Count-1) do
begin
ListBox1.Items[n]:=ansiuppercase(ListBox1.Items[n]);
i:= length(ListBox1.Items[n]) + i;
ZwZeile := ListBox1.Items[n];
Code := 65;
repeat
For m := 1 to length(ZwZeile) do
begin
if Chr(Code) = ZwZeile[m]Then
buchstaben := buchstaben + 1;
end;
Lab65.Caption:= (Chr(Code)+': '+ inttostr(buchstaben)); code := code +1;
until Code=91;
end;
stxWortLaenge.caption := IntToStr(i);
end;
end; |
Moderiert von 
Christian S.: Topic aus Algorithmen, Optimierung und Assembler verschoben am Sa 23.02.2008 um 20:31
FINDCOMPONENT