SuperFórum.cz

Netusim kde je chyba, debug mi zmizel z nabidky moznosti kompilatoru a kdyz jdu krok po kroku tak se to zda ok. Proste to neřadi

No ale prave takhle stejne to udelat v Delphi proste nelze ... Alespon mne ne, moje reseni jsme postnul.

Vim co dela funkce append, tu uz mam davno v poradku jde mi o razeni, kd emam nejspis chybu.

Vim, ale zase to resit se mi uz moc necche po tech hodinach stravenych nad tim ...

Aha jenom takhle jednoduse :) tak to reknu hned :) mi lidi rikali at pouziju nejakej TList ze to nejde normalne pres rewrite a append ... Tak diky moc. V tom furt hledam slozitosti uz jsem tohle zas prepsal na 60 radku nez jsi sem postnul tohle jednoduchy reseni ...

EDIT: Sice to stale neradi od ne...

A mne zas prijde ze nectes o co mi jde:
1) Do souboru se napisou score za sebou serazene od nejmensiho poctu tahu (nahore bude nejmensi pocet tahu) - to se nedeje
2) Do souboru bude pripsan jen novy radek nikoli znova text "Vysledky hracu podle tahu" coz tvoje uprava "append" del...

Jo jo take si myslim. Ja to v tom proste uz nevidim, proto potrebuju oko nove prichoziho, aby to zkusil najit nekdo kdo se to nesnazi uz par hodin spatlat :/

Nebo mate uplne jine reseni jak by se to mohlo resit, ja i to napsal v cecku, kde to funguje a znam ho a ted se to snazim prevadet, kdyztak t...

Presne na toto som ho upozornoval o par prispevkov vyssie:

Mala napoveda k tvojmu "problemu": Preco na konci funkcie CheckIfWinner davas Result:=False a potom sa cudujes, ze ti to vzdycky vyhodi "lez" ??? Result:=False si nastav hned na zaciatku tej funkcie a vnutri nastavi...

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

Neni jeden prikaz ale je to podminka
"if neco pak"
"udelej prikaz"
nebo
"udelej prikaz"

Tedy vice prikazu "kdyz neco" udelej prikaz "nebo" udelej prikaz - tak jak to spravne rozlisuje k...

No jeste, ze tu mam pana vsechno vedel vsechno znal. Vim, ze jsou lidi, co padaji uceny z nebe, ja to bohuzel nebyl. Delphi je pro me nova kravina a jeji syntaxe mi nedava smysl.

Strednik se nepise za kazdym prikazem, ale napriklad u funkce:
If neco then
neco (bez stredniku)
else
neco; (se stredn...

Ahoj,
snazim se tu prevezt kod z C++ na Delphi, ale nejak se mi to nedari. Jde o vyherni algoritmus pro kontrolu 4 stejnych vedle sebe neco jako piskvorky ... nazim se nasledujici kod:
bool CheckIfWinner()
{
std::size_t rowLength = 0, columnLength = 0, leftDiagonalLength = 0, rightDiago...

Tak jsem zkusil tedy jinou verzi, ale nefunguje mi...
Bohuzel to ale nefunguje a soubor se jen kompletne prepise novymi daty tedy poslednim znamym vysledkem ... Nekdo ma nejake navrhy jak na to nebo co tam delam spatne?

No na to uz jsem koukal a stejne jsem sesmolil to co jsem zde postnul

No práce se souborama je v object Pascalu nejaka divna ... Nasel jsem na netu neco o tom a podle toho se to snazil udelat, pokud bys to naprogramoval jinak, muzes mi zde tedy ukazat tvoje reseni at si to od tebe nastuduji prosim? Dekuji.

Hoj jsem tu zas a se mnou posledni maly dotazek. Vytvarim vertikalni piskvorky hru (Connect 4) a mam tam mit nejlepsi vysledky hry razene podle poctu tahu spolecne se jmenem hrace, ktere budou evidovany v externim souboru a zobrazeny po vyhre. Muj pokus je nasledujici:
procedure WriteWinners;
var I...