Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Aufzählungstypen For schleife (https://www.delphipraxis.net/77111-aufzaehlungstypen-schleife.html)

DeluxXx 14. Sep 2006 19:24


Aufzählungstypen For schleife
 
Also ich will/muss eine For Schleife mit unterschiedlichen Aufzählungstypen aufrufen
Delphi-Quellcode:
type
   Tlinienset = 'A'..'G' ;
   TLinienSet2 = (J,K,H,I) ;
   Tlinienset3= (B,K,I,F) ;
   TLinienSet4 = (D,J,I,H) ;
   TLinienSet5 = (L,D,C) ;
...
var
Linie : TLinienset ;
Linie2 : Tlinienset2 ;
...
for Linie:= edit1.text[1] to edit2.text[1] do
begin
...
end;
for Linie2:= edit1.text[1] to edit2.text[1] do
begin
...
end;
Problem dabei ist:
[Pascal Error] Unit1.pas(15): E2004 Identifier redeclared: 'K'
[Pascal Error] Unit1.pas(16): E2004 Identifier redeclared: 'J'
[Pascal Error] Unit1.pas(17): E2004 Identifier redeclared: 'D'

Ich muss die For schleife aber in diesen Reihenfolgen aufrufen gibt es noch eine andere möglichkeit oder kann man das Problem irgendwie beheben ?
Danke

inherited 14. Sep 2006 19:54

Re: Aufzählungstypen For schleife
 
Ich denke das hat weniger mit der For-Schleife zu tun, als vielmehr mit der Definition der Schleifensets. So wie du das machst ist das leider nicht möglich. Die for-schleife ist so möglich

DeluxXx 14. Sep 2006 20:56

Re: Aufzählungstypen For schleife
 
http://www.epinasoft.com/delphikurs/...ion_types.html
Also mir sieht da alles richtig aus wobei wie du gesagt hast etwas mit der Schleifendefinition nicht stimmt aber was genau mach ich denn falsch und wie macht mans richtig ?

xaromz 14. Sep 2006 21:04

Re: Aufzählungstypen For schleife
 
Hallo,

http://www.delphipraxis.net/internal...=608045#608045

Gruß
xaromz

3_of_8 14. Sep 2006 21:05

Re: Aufzählungstypen For schleife
 
Ganz einfach: Du deklarierst Aufzählungselemente mit dem gleichen Namen.

Wie man das umgeht? Ganz einfach die Delphi Win32-Konventionen beachten und mit Präfixen versehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz