Delphi-Quellcode:
const
cDataBit : array [TDataBit?] of string = ( '4', '6', ...);
Ich steh irgenwie auf dem Schlauch.
Die Idee mit dem Array ist gut.
Ich habs folgendermaßen gemacht:
cDataBit: array [0..4] of string = ('4', '5', '6', '7', '8');
und frag dann so ab:
Delphi-Quellcode:
for i := low(cDataBit) to high(cDataBit) do
If cDataBit[i] = S then
begin
Result := TVaDatabits(i);
break;
end;
Ich wollt eigentlich Sir Rufo´s Idee übernehmen und den Typ ins Array übernehmen, also so:
cDataBit: array [TVaDataBits] of string = ('4', '5', '6', '7', '8');
.
Nur dann erhalte ich bei der for-Schleife:
for i := low(cDataBit) to high(cDataBit) do
.
folgende Fehlermeldung:
Zitat:
[DCC Fehler] Main.pas(444): E2010 Inkompatible Typen: 'Integer' und 'TVaDatabits'
TVaDataBits ist so deklariert:
TVaDatabits = (db4, db5, db6, db7, db8);
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<