array problem

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

indeksi niza su:0,1,2,5,7,8,10,11,21,45,200.Problem mi je kako da svakom ovakvom indeksu niza dodelim (opet) definisanu vrednost('jabuka',kruska...)-stim da kasnije procitam vrednost tog indeksa na osnovu povratne vrednosti funkcije.(niz[result]:=neka vrednost).Znam da moze da se 'rucno' ispise svaki indeks i dodeli mu vrednost,ali me interesuje moze li to elegantnije.
Unapred zahvalan

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jesu li tim indeksima već dodeljene neke vrednosti ili ne?

edit: pošto si napisao "(opet)" pretpostavljam da već imaju neku vrednost i šta je sa ostalim indeksima?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

pa napravi jedan niz stringova koji ima

s[1]='jabuka'
s[2]='kruska'
...
s[8]='tikva'
s[9]='dinja'
s[10]='?'
s[11]='??'
(valjda može kao konstanta da se postavi u deklaraciji inicijalno ?
ili se učitava? )
a drugi da budu indeksovi
idx[1]=0
idx[2]=1
idx[3]=2
idx[4]=5
idx[5]=7
idx[6]=8
idx[7]=10
idx[8]=11
idx[9]=21
idx[10]=45
idx[11]=200

i onda onaj glavni niz niz[0..200] ? jel tako do 200
for i := 1 to 11 do   begin    niz[idx[i]]:=s[i]   end

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako ovo nije zadatak za skolu, onda bih predlozio da se ne koristi array za ovakve stvari, vec neka od varijanti TList.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne,nije zadatak za skolu.Preko indeksa citam vrednosti na koji ukazuje taj indeks.Indeks je zapravo kod greske,a vrednost je opis te greske.Povratna vrednost f-je,je kod greske,i meni treba da na osnovu koda greske procitam opis greske.Mislio sam da svaki kod greske bude indeks niza,a vrednost-opis te greske.Znaci,funkcija obradjuje taj i taj zadatak i u zavisnosti od tog rezultala vraca kod greske..Ja sam stavio u const opise gresaka i njihove kodove,ali zeleo bih da na osnovu koda greske program ispisuje opis te greske.
(kad kazem 'greska'-ne mislim na Delphijeve standarne izuzetke)
Pozdrav

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li ovi stringovi trebaju da su u stvari fiksni , ili se učitavaju
iz neke spoljne datoteke ( nešto kao za više jezičkih područja ? )

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

stringovi su fiksni.
const
ime_greske kod_greske;