Sziasztok .
  Volna megint 1-2-3 kerdesem delphivel kapcsolatban.
1.
   van deklaralva  egy   output: TMemoryStream es egy
     buf :array[1..30000] of string .Ha a streamba  stringek vannak
  'hogy lehet ezekkel feltolteni az array-t ?
2. a tmemo-rol (delphi3)  a konyvek azt irjak 'hogy akar 2G szoveget
    is be lehet vele tolteni , akkor en miert kapok uzenetet hogy
    not enougth memo capacity  ?
3. ha  a TForm1.FormCreate- bol ki akrnak nyitni
   egy uj formot miert fagy ki  a progi.( maskepp fogalmazva 'hogy
   lehet NAG screent csinallni ) ?
4. szerettem voln a a formomnak "hatteret" kesziteni ezert a kovetkezot gondolt
am:
procedure TForm1.FormPaint(Sender: TObject);
var x,y:byte;
;
  ez igy jo is  a ket felso ciklus mukodik , de en meg szerettem volna egy logo
t
    is kirajzolni  az (X)  sorral, de ez nem megy ,vagyishogy megy de ahova az
atlatszo logot
    teszi kitorli az elozoleg formra rajzolt mintakat es csak a szurkeseg latsz
ik alatta.
     (na most nem  tudom 'hogy ertheto-e ez ) ? volan ra valami megoldas ?
5. az elozo brushcopy- nak van-e bitblt-hoz hasonlo winapija amivel a magara a
kepernyore
    is rajzolhatok  "atlatszoan" ?

    Elore is koszi : Tibiqe

Egy regebbi szamban olvastam a targybeli dologrol, de nem talalom a
reszleteket.
Legyszi, vilagosits fel az algoritmus lenyegerol, az alairas titkositas
kapcsan vagy tudsz-e ajanlani valamit (link) ahol reszletesen le van irva ez
a titkositasi modszer.



Patko Viktor

Hellosztok!

Lenne egy kerdesem:
Ha visual basicben irok egy olyan programot, ami tartalmaz mondjuk
dbgrid es DBcomo komponenseket, akkor azt hogyan kell leforditani ugy,
hogy olyan gepen is menjen, ahol ezek nem talalhatoak meg.
Ha siman mellemasolom ezeket a fileokat, akkor valami key not
registered uzenettel elszall a proggi.

A valaszt legyszives maganba (is), mert nem olvasom a listat.

Udvozlettel,
 Szendi Janos                          mailto:

> Egy kedves baratomnak keszitek egy algoritmust, aminek az a
> feladata, hogy egy sakktablan elhelyezzen 8 kiralynot ugy, hogy
> egyik kiralyno se usse a masikat.
...
> A kerdesem csak annyi lenne, hogy ha valaki tudja, hogy mennyi
> lehetseges megoldasa van a feladatnak, az kerem irja meg nekem.
>
> Ha valakinek megvan a forras, annak nagyon orulnek.

A osszesen 92 ilyen pozicio van . Ha erdekel valakit a forras, elkuldom.
(Pascal)

Kavai Csaba

>A segitsegeteket szeretnem kerni. Nemtom, volt-e mar
>rola szo a listan,de erdekelne BARMILYEN anyag Tcp/Ip
>programozasaval kapcsolatban. Egyszerubben szolva:
>egy sajat programozasu terminallal felmegyek pl. a
>Freemail-re, beutom a nevem&jelszavam, ekkor kiirja,
>hogy atlepett PPP mode-ba, na innentol kezdve mit
>lehet kezdeni vele?
Na, most kb. olyant kertel, hogy "fiuk! irjatok le mindent a Pascal-rol!".
Szoval a dolog kicsit tul komplex ahhoz, hogy igy nehany sorban el lehessen
intezni - meg akkor is ha csak linkeket kozolnek. Jomagam lassan egy eve
szinte teljes szabadidomben massal sem foglalkozom, mint a TCP/IP-vel, az
Internettel es alkalmazasaival, es hazudnek ha azt mondanam, hogy mar szinte
minden kapcsolodo temat legalabb felszinesen erintettem...
En inkabb azt ajanlom, hogy csapj a honod ala egy AltaVistat aztan iramodj
neki az Internetnek - errol a temarol egyszeruen bodoletes mennyisegu
informacio talalhato. (A porno-siteok utan valoszinuleg ez a masodik
"legnepszerubb" tema az Interneten, ami nem is csoda, hiszen az egesz
rendszer erre epul.)
A legjobb lesz egyebkent ha helybol a http://www.ietf.org -ra mesz - innen
renteged specifikacio (koztuk pl. az RFC-k) tolthetok le a protokollokkal
kapcsolatban, de ezek csakis a szigoruan technikai jellegu dokumentumok. Ha
tenyleg meg is akarod erteni oket (mert hogy ezek kicsit emeszthetetlenek
elso nekifutasra) akkor inkabb nezz korul valami "magyarazo" jellegu doksi
utan. Ez ugyben tudom ajanlani az IBM egy igen kituno red bookjat
http://www.redbooks.ibm.com/pubs/pdfs/redbooks/gg243376.pdf ami ugyan
meglehetosen nagy (>3MB), de minden egyes bitje megeri a letoltest. Ez a
konyv a TCP/IP szinte minden gyakorlati kerdesere kiter: a protokoll
alapjaitol kezdve, a DHCP-ig, subnetting, routing, biztonsagi megfontolasok,
alkalmazasi protokollok, stb. Szoval egyszeruen egy "must have" olvasmany...

Gabor

> lehetseges megoldasa van a feladatnak, az kerem irja meg nekem.

92 remlik, szimmetrikus eseteket egyszer szamolva.

(Dahl,Dijskra,Hoar: Strukturalt programozas c. konyveben benne van egy
program meg az eredmeny is.)

> Ha valakinek megvan a forras, annak nagyon orulnek.

http://csserver.evansville.edu/~morse/courses/cs499/s1999/eightq.html

z2

> > Egyszeruen ra kell engedni az alkalmazas-ablak handle-jere
> ShowWindow()-ot,
> > SW_HIDE parameterrel.
> >
> >Gabor
>
> Nem, az csak a TaskBarrol tunteti el az alkalmazas ikonjat, de a
> Ctrl+Alt+Del -nel ott lesz.

RegisterServiceProcess = GetProcAddress(GetModuleHandle("kernel32"),"RegisterS
erviceProcess");
RegisterServiceProcess(GetCurrentProcessId(), 1);

Ezt rakd be a progi elejere. Csak Win9x alatt lesz jo.
Csao,
Gammaz

On 12 Jan 00 at 18:43,  wrote:

> Egy kedves baratomnak keszitek egy algoritmust, aminek az a
> feladata, hogy egy sakktablan elhelyezzen 8 kiralynot ugy, hogy
> egyik kiralyno se usse a masikat.
 ...
> Ha valakinek megvan a forras, annak nagyon orulnek.

Osszedobtam egyet :)

--------------------8<----------------------
#include <stdio.h>

int sorok[8], jobbatlo[15], balatlo[15];    /* kezdoertek 0 */
int darab;                                  /* ennek is */
int kiralynok[8];

void helyez(int oszlop)
{
  if (oszlop == 8) {
    /* vegigertunk, van egy uj elrendezes, irjuk ki */

    printf("%d. elrendezes:", ++darab);
    for (oszlop=0; oszlop<8; oszlop++)
      printf(" %c%d", oszlop+'A', kiralynok[oszlop]+1);
    printf("\n");

  } else {
    int sor;

    for (sor=0; sor<8; sor++) {
      /* a sor es oszlop melyik ket (bal es jobb) atlot fedi le? */
      int bal=sor+oszlop, jobb=sor-oszlop+7;

      if (!sorok[sor] && !balatlo[bal] && !jobbatlo[jobb]) {
        /* ezt a poziciot meg nem foglalta le senki */

        kiralynok[oszlop] = sor;  /* lerakjuk az uj kiralynot */

        /* bejegyezzuk, hogy miket foglal el */
        sorok[sor]=1; balatlo[bal]=1; jobbatlo[jobb]=1;

        helyez(oszlop+1);         /* a tobbi oszlopban hol lehet? */

        /* visszacsinaljuk, hogy kereshessunk mas megoldast */
        sorok[sor]=0; balatlo[bal]=0; jobbatlo[jobb]=0;
      }
    }
  }
}

int main()
{
    helyez(0);

    return 0;
}
-------------------->8----------------------

Viszont a kedves baratod se, meg Te se tanultok sokat belole, ha
massal csinaltatjatok meg a hazi feladatot :) Remelem, azert a
kommentek sok mindent elmagyaraznak. Annyit meg hozzatennek, hogy az
egyszeruseg kedveert is rekurzioval csinaltam. A masik, hogy
backtrack-nek szoktak nevezni azt, (amit itt is hasznaltam,) hogy
amikor egy agban kiderul, hogy remenytelen, akkor rogton vissza lehet
lepni eggyel, es mas lehetoseggel probalkozni -- mar ha van.

Ja, es nem volt kedvem kinullazni a tomboket indulaskor, ugyis nulla
van a sztatikusakban.

> A kerdesem csak annyi lenne, hogy ha valaki tudja, hogy mennyi
> lehetseges megoldasa van a feladatnak, az kerem irja meg nekem.

A progit futtatva 92-ot ir ki, de persze ebben vannak mindenfele
elforgatott meg tukrozott megoldasok is, amik csak a gep szamara
masok, valojaban ugyanazokat az elvi elrendezeseket adjak. Ha csak
az elvileg is kulonbozo megoldasok erdekelnek, akkor meg tovabb kell
dolgozni, megjegyezni a korabbiakat, es osszehasonlitani az uj
elrendezes mindenfele transzfolmaltjat (haromszoros forgatas,
negyfele tengelyes tukrozes, egy kozeppontos tukrozes) azokkal. Ez
sem tul bonyolult, de mar rad bizom :)

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --

>Felado :  [Hungary]
>Egy kedves baratomnak keszitek egy algoritmust, aminek az a
>feladata, hogy egy sakktablan elhelyezzen 8 kiralynot ugy, hogy
>egyik kiralyno se usse a masikat. ....
> .... Ha valakinek megvan a forras, annak nagyon orulnek.
Ebben benne van (pascal)
N.Wirth: Algorithms + data structures = programs
Prentice Hall, ISBN 0-13-022418-9
--Udv:szm