Hogyan lehet megoldani, hogy az alábbi program randomban (véletlenszerűen) adja ki a szavakat (TPascal) valamint a txt fájból beolvasott ékezetek megjelenítése?

"Hogyan lehet megoldani, hogy az alábbi program randomban (véletlenszerűen) adja ki a szavakat..."

randomize kell a véletlen szám generátor inicializálásához.:

Random függvényel random szám generálára.

...

rndIndex:=random(Adatbazis.count);

write(Adatbazis.Names[rndIndex],' = ');

...

2x ugyan az a kódrészlet copy paste-elve, HÁT azért már, ilyet igazi programozó nem csinál. Egy nagy programba ugyan azt a kódrészletet lehetne másolgatni 5000x, esetleg néhány változó különbsége lenne néhányba, és ha vmi hiba van akkor mind az 5000-et megkeresgélni lecserélni még el is rontaná az ember ...

try finaly-ba rakni a kódot, UGYAN MÁR, ez miféle módja a kivételkezelésnek?

Már ne is haragudj, de ilyen programozási módszertannal, egy leendő több 100 soros programod kudarcra van ítélve.

"txt fájból beolvasott ékezetek megjelenítése?"

A konzol ablak alapértelmezetten a 852-es kódlapot használja azért hogy a régi programok kompatibilisek legyenek vele. Az ékezetes betűk máshol vannak benne. A szerkesztő amivel a programot írod a 1252-es kódlapot használja.

Kódlapot a chcp parancsal tudsz váltani windows alatt.

Egy kis leírás c++-os kódokat is tartalmaz és angol

[link]

Ez c kód, de ennek analógiájára lehet pascalba is:

Vagy pedig csak egyszerűen cseréled a karakterket kódlap váltás nélkül (nem elegáns, környezet függő megoldás):

switch(src[i]){

case 'á': dest[i]=160; break;

case 'é': dest[i]=130; break;

case 'í': dest[i]=161; break;

case 'ó': dest[i]=162; break;

case 'ö': dest[i]=148; break;

case 'ő': dest[i]=139; break;

case 'ú': dest[i]=163; break;

case 'ü': dest[i]=129; break;

case 'ű': dest[i]=251; break;

case 'Á': dest[i]=181; break;

case 'É': dest[i]=144; break;

case 'Í': dest[i]=214; break;

case 'Ó': dest[i]=224; break;

case 'Ö': dest[i]=153; break;

case 'Ő': dest[i]=138; break;

case 'Ú': dest[i]=233; break;

case 'Ü': dest[i]=154; break;

case 'Ű': dest[i]=235; break;

default: dest[i]=src[i];

}

}

Vagy pedig keresel a neten ansi to ascii converter-t és átkonvertálod a txt file-odat vagy te csinálsz egy ilyen konvertert.