|
Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
Delphi 2007 Professional
|
AW: ForEach bei Lazarus 1.04?
27. Jan 2013, 15:33
Für jeden Buchstaben eine eigene Schleife?
Delphi-Quellcode:
var
zeichen : char;
...
for zeichen in zeile do
begin
inc(liste[Ord(zeichen)]);
end
|