Smyčka for .. in array – Delphi – Fórum – Programujte.com

Chyba 1.: Operator not applicable to this operand type

Chyba 2.: Expression expected but 'BEGIN' found

// 1. deklarace

Jazyky : Array [0..maxTestItems-1] of string;

// 2. iniciace a načtení dat do Jazyky

// 3. zkouším projít pole stringů

  for s in Jazyky do
    begin

   // some code here

   end;

Nerozumím té chybě. Podle příkladu by to mělo fungovat.

tj obecny navod na prochazeni pole

melo by to byt cca takto:

procedure a ;
 Jazyky : Array [0..maxTestItems-1] of string;
 s:string
begin
  for s in Jazyky do
    begin

   	//some code here

   end;
end;

Vždyď to tak mám, tak co znamená ta chybová hláška?

 Zapoměl jsem uvést, ale mám to tam:

s: string;

#3 oxidián
proč chceš použít zrovna tuhle konstrukci, Já myslím, že na obyčejné pole to nebude fungovat, je to konstrukce pro procházení kolekcí, které mají integrovány iterátory, kdežto Array. je pouze prostor pro data určitého typu. U stringů je to prostor ukazatelů na jednotlivé stringy v poli, místo pro stringi si podle jejich velikosti pak program alokuje 

Ta konstrukce by měla jít použít, kdybys měl Jazyky definované jako TStrings nebo TStringList.

Také to chce myslet na použití  - třeba ty Jazyky máš tam pro ně spoustu údajů v různých polích někdy array jindy TString/..s,..List/, podle mě by bylo lepší je zabalit do třídy, bude to přehlednější a pro programování po pauze lépe srozumitelné. 

Víš že  TStringList může mít 2 hodnoty Key a Value?

#4 MilanL

Našel jsem: "Delphi 7 does not support for .. in"
Mě by to přišlo pohodlnější.

Ano, je to nepřehledné o té nutnosti to zabalit vím. Jen jsem s třídou ještě nedělal, tak to odkládám.

#4 MilanL
Omluva, tak to procházení pomocí FOR-IN funguje i na obyč. pole, ale pozor má to omezení, aktivní prvek je jen pro čtení nelze ho měnit, tzn např podmínka if s=' ' then  ti fungovat bude, ale s := 'xx' fungovat nebude.

Tak hlavně, jak už bylo zmíněno, D7 neumí FOR-IN, to bylo přidaný v D2007. A ohledně TStrings/TStringList - TStrings se abstraktní třída, používej ji jenom pro deklaraci parametrů, nikdy nevytvářej instanci.

#7 Sniper
Proč ne? Však tu instanci pak mohu odstranit.

Nechtěli byste se mi na to mrknout? Chyby co mi to házelo jsem odstranil. Teď pracuji na menu testy.

Jen to spusťte, a klikněte na menu Testy. Tam jsou ty automaticky vytvořené položky. Člověk má vlastně vybrat jeden jazyk, ze kterého chce dělat testy. Je otázka proč tam je tolik prázdných položek dole.

https://sourceforge.net/projects/uc-heb/files/developer_backups/2018/finished/ucheb.24.zip/download

Okruhy přesně si nepamatuji na co jsou, ale měly by tam být ještě učebnice. Po vybrání jazyka se načtou učebnice dostupné pro daný jazyk. Např. jeden jazyk je možné cvičit z různých zdrojů.

Můžete mi dát příklad jak ty jazyky zabalit do třídy?

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Soubor1: TMenuItem;
  private
    langMenuItems : array of TMenuItem;
    SubMenuItems : Array of TMenuItem;
    SubMenuItemsLoaded : Array [0..maxTestItems-1] of boolean;
    TestyDirs, SubDirs : TStringList; // for folders search
    procedure JazykyInitiate;
    procedure DynMenu;
  public
    JazykyIndexy : TStrings;
    Jazyky : Array [0..maxTestItems-1] of string; // Language names ... associated with JazykyFolders
    JazykyFolders : Array [0..maxTestItems-1] of string; // Folder names associated with Jazyky menu items
    JazykySelected : Array [0..maxTestItems-1] of string; // Jazyky sub-folder folder specification
  end;

K tomu ještě patří

procedure TForm1.readINI;

procedure TForm1.writeINI;

Co potřebuju udělat je, aby procedury a proměnné

.readINI

.writeINI

.JazykyInitiate

.DynMenu
apod. byly pod jednou instancí. Abych ty data, ohledně adresářů, jazyků, knih, vybraných apod. měl vše pod jednou instancí.

Nápověda: "TStrings contains abstract or, in C++ terminology, pure virtual methods and should not be directly instantiated.". Prostě, pokud vytvoříš instanci TStrings (nebo jiný abstraktní třídy), a náhodou zavoláš něco, co pracuje s abstraktní metodou, tak to spadne na abstract exception. Zrovna TStrings např nemá vůbec implementovaný getter pro property Strings[].

Zrovna teď bych raději vyřešil jak ty jazyky zawrapovat abych se v tom neztratil.

Já treba k tomu poli jazyků nevím kolik těch jazyků tam je. To je problém. Wrapper by se mohl jmenovat Testy a obsahoval by člena langCount kam bych tu informaci uložil během načítání souboru ini.