Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
10. Nov 2009
Welche Schleife?
so ists deutlicher:
for i:=0 to xxxx.count-1 do
begin
.......
end;
yyy.rowcount:=xxxx.count+1;
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
10. Nov 2009
@DeddyH
Bei mir klappt es immer mit
for i:=0 to xxxx.count-1 do
.......
yyy.rowcount:=xxxx.count+1;
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
10. Nov 2009
@DeddyH
Ist die frühe Festlegung von RowCount und ColCount notwendig oder Dein pers. Stil?
Gruß
K-H
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
10. Nov 2009
Hallo pascall,
das mit Try finally funktioniert so, daß wenn ein Fehler zwischen try und finally auftritt, die Verarbeitung sofort zur Anweisung nach finally springt.
In Uwes Beispiel befindet sich vor Finally der "Leseabschnitt" und hinter finally der "Aufräumabschnitt" der auf jeden Fall ausgeführt werden sollte. Man könnte darüber streiten ob das unbedingt notwendig ist, ein Fehler ist es...
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
9. Nov 2009
Hallo Pascall,
Ich würde es so lösen:
1) array of integer
wobei jede Array-Zelle für einen Buchstabe/Zeichen steht.
mit 0 initialisieren.
2) Textdatei Zeichen für Zeichen lesen und das Zeichen als Index des Arrays verwenden und dann inc(a,1);
(natürlich gepuffert alles andere wäre zu langsam)