Hallo zusammen!
Ich bereite mich gerade auf meine Info-Klausur vor, und habe hier eine Übungsaufgabe.
In dieser Aufgabe soll ich eine Textdatei zeilenweise durchgehen, und die Häufigkeit der Buchstaben von A-Z feststellen (ist Lazarus bei Literalen vom Typ 'a' oder 'A' Case-Sensitiv?
).
Ich dachte mir, dass man dafür evtl eine ForEach-Schleife verwenden kann
. Ich kenne das von C# und habe gelesen, dass es das bei delphi auch gibt. Aber geht das auch bei Lazarus?
Ein Code-Ausschnitt sieht aktuell so aus:
Code:
.
.
.
begin
dateiname:='';
zeile:='';
posi:=0;
for i:=1 to 26 do
liste[i]:=0;
OpenDialog1.Execute;
dateiname:=OpenDialog1.FileName;
AssignFile(f, dateiname);
FileMode:=0;
Reset(f);
repeat
Readln(f, zeile);
ForEach ('a' in zeile) do //<- Wenn das denn geht!?
inc(liste[1]);
{für die restlichen Buchstaben ebenfalls...}
until eof(f);
end;
.
.
.