Fórum Živě.cz

upresnim vladimira:

dir /A:D /S /B

Skusal si z toho suboru nacitavat udaje "rucne" ? Teda cez AssignFile, Reset, ReadLn, CloseFile.
Ak ani toto nebude nacitavat data, aspon sa dozvies cislo chyby pri otvarani suboru.

A takto to funguje?

Kód: Vybrat vše

Memo1.Lines.LoadFromFile(opendialog1.FileName);


Nemusel si tolko okien otvarat. Hned v tom prvom obrazku, kde mas rozvinute to menu s roznymi oramovaniami je piata polozka "Bez oramovania". Staci na nu kliknut a je to. Nie je potrebne otvarat dalsie okno a nastavovat to tam.

Zrejme mas nastavene nejake oramovanie. V tom tvojom vzorovom dokumente som po otvoreni stlacil Ctrl+A a nasledne zvolil No Border (ziadne oramovanie). Vsetky ciary zmizli a pri pisani textu sa uz ziadne nezobrazuju.

Takisto pouzivam TC. Nerozumiem vsak tym, ktori hovoria, ze pouzivali TC a neskor presli na ine, alternativne manazery. To ste akoze zahodili kupeny soft a presli na free alternativu? Alebo ste kludne rok odklikavali nejake ciselko pri spusteni TC ???

Triedenie som samozrejme neriesil. Pouzivas tam vlastnu proceduru "Sorting", takze hladaj chybu v nej, ak to netriedi, ako ocakavas.

Paneboze, tak si to uprav tak, ako potrebujes. Ja som ti opravit iba to otvaranie suboru, lebo si to mal zle. Nechapem, na keho certa si 2x za sebou volal rewrite ???? A potom sa cudujes, ze ti do toho suboru nic nepridava, ale stale sa ti prepisuje.

Btw, ovladas aspon zaklady anglickeho jazyka? Ak...

Ak ti vzdy vrati True, bude problem vo vyhodnocovani. Tipol by som to na nespravne pouzitie indexov pola, alebo nejaku inu "zaludnost".

Nehlede k tomu, ze na konci provede:
Result := False;
Takze veskere vyhodnocovani nad tim je naprosto k nicemu a muze je cele smazat. Ta funkce vrati vzdy nepravdu.


Presne na toto som ho upozornoval o par prispevkov vyssie:


Mala napoveda k tvojmu "problemu": Preco na konci fun...

Ty budes nejaky divny. Namiesto toho, aby si bol rad, ze ti niekto pomaha, tak ho osocujes.
Toto, co si napisal, je JEDEN prikaz:


If neco then
neco (bez stredniku)
else
neco; (se strednikem)


To, ze je rozdeleny do viacerych riadkov, nic neznamena. Moze to byt kludne zapisane aj takto:


If ...

OMG, mam pocit, ze vobec nerozumies tomu, co v tom kode pises. Upravil som ti tu cast, kde sa otvara TXT subor s vysledkami:


procedure WriteResults;
var i: integer;
begin
AssignFile(FileWithResults, 'Vysledky.txt');

if not FileExists('Vysledky.txt') then
Rewrite(FileWit...

Zjavne mas problem s programovanim a chapanim napisaneho, inac by si nenapisal takuto kravinu:

if Result then
Result := True;

So strednikom v Delphi nie je ziaden problem, dava sa vzdy na konci prikazu.
A o "return" funkcii radsej pomlcim. O tom, ze ju nedokazes pouzit svedci ...

Tak to hlavne urob v samostatnom vlakne. Boh ta ochranuj urobit to v hlavnom threade a v cykle volat Application.ProcessMessages!