Kedves Tamas!

> Felado :  [International]

> >Szerintem tha bejegyzi a pl kiterjesztest, hogy az a PERL-ben nyitodjon
> >meg, akkor maris sikerrel jart. Nem egyszerubb ez igy?
> 
> Nem, mivel ha begepeled a file nevet, akkor bad command or filename
> uzenettel ter vissza :-))))
> Ez csak akkor jo, ha egerklikkelos modszerekkel dolgozol.

NT alatt cmd-bol megy...

Udv From:, a valaszut
Idot, penzt, faradsagot takarit meg, ha idot, penzt, faradsagot takarit meg...

Valahogy igy:

Uses
    Crt, Dos;

Type
    KurzJell = Record
      Felso, Also, X, Y : Byte;
    End;

Var
    Reg : Registers;
    AktK: KurzJell;

  Procedure KurzKerd(Var K: KurzJell);
    Begin
      With Reg, K Do Begin
        AH := $0F; Intr($10,Reg);
        AH := $03; Intr($10,Reg);
        Felso := CH; Also := CL;
        X := DL+1; Y := DH+1;
      End;
    End;

  Procedure KurzElr(B: Boolean);
    Begin
      KurzKerd(AktK);
      With Reg Do Begin
        If B Then CH := AktK.Felso Or $20
        Else CH := AktK.Felso And $DF;
        CL := AktK.Also;
        AH := $01; Intr($10,Reg);
      End;
    End;

True eseten elrejti, False eseten megjeleniti.

Krisztian

Sziasztok!

 -nek a subject beli temaban:
Amig az assembly guruk nem mondanak jobbat, erd be az alltalam hasznalt
modszerrel: :-)

    procedure croff;
      var regs:registers;
        BEGIN
          regs.ah:=1;
          regs.ch:=32;
          regs.cl:=0;
          intr(16,regs);
        END;

    procedure cron;
      var regs:registers;
        BEGIN
          regs.cx:=6*256+7;
          regs.ax:=256;
          intr(16,regs);
         END;

Nem en irtam, de ha jol tudom, akkor A kurzor tetejet az alja ala allitja,
tehat nem latsz semmit.

Udv
Szucs Zoltan

>  Csak egy kerdesem lenne: tudja-e valaki,hogyan lehet a Turbo Pascal
>  7.0 -as verziojaban a kepernyorol eltuntetni a kurzort (szoveges
>  kepernyorol) ?  Nagyon zavar a villogasa tobb helyen is.

At kell irni a kurzor alakjat egy BIOS hivassal, hogy egyetlen pontsora se
latszodjon:

procedure ShowCursor;
var r: registers;
;

Gábor

Sziasztok Coderek.

Segitsegre lenne szuksegem.
Konkretan pascal (vagy for win)-hoz kene egy networkos progi ami iranyitja
az adatforgalmat. Ez egy chat program megirasahoz kene. Eleg egy belso
halozatos dolog, nem kell kulon ip cimeket meghivni. Aki tudna kuldeni
evvel kapcsolatos pelda programot, unitot vagy esetleg tudna segiteni, az
irjon email cimemre. 
A valaszokat maganban varom.
Koszi
PeTi
mailto:

Turbo Pascal - kurzor

>   Csak egy kerdesem lenne: tudja-e valaki,hogyan lehet a Turbo Pascal
>   7.0 -as verziojaban a kepernyorol eltuntetni a kurzort (szoveges
>   kepernyorol) ?  Nagyon zavar a villogasa tobb helyen is.

procedure KurzorKikapcs;
assembler;
asm
       mov ah,$F
       int $10
       mov ah,$3
       int $10
       mov ah,$1
       or  ch,$20
       int $10
end;

procedure KurzorBekapcs;
assembler;
asm
       mov ah,$F
       int $10
       mov ah,$3
       int $10
       mov ah,$1
       and ch,$DF
       int $10
end;

A megoldás elonye hogy nem tartalmaz kulso hivatkozast. ;-)

Udvozlettel: Chut

Hi,

> Tud valaki valami leírást (+tutorial) Objective C-ről?

Angolul:
   http://www.peanuts.org/GNUstep/ -> Resources -> Resources

Magyarul:
   http://www.elte.hu/~csonti/studies/objc.html

Ez inkabb egy ismerteto/bevezeto jellegu anyag.

Udv, 
Pok

Udv!

Ha a PC Programozas Technika c. kiadvanyra gondolsz, haaat....
talan. Attol fugg hogy mire van szukseged. Ha talalsz benne egy
olyant, amivel megsporolsz egy napi munkat, akkor mar megerte az
ezer forintot. Masreszt ha a CD-nek egy toredeket is le akarnad
tolteni a Net-rol, joval tobbe kerulne e telefonszamla. Van rajta
egy par Ada compiler es doksi, rengeteg hang es hangkartya anyag,
meg egy par tonna Utility es forraskod Delphi, Asm es C++-ban.
Mindenesetre ennyi penzert meg lemasolni sem rentabilis, mert tobb
idot toltesz el a gatyazassal.:-)

Nezd meg a borito hatuljat, es ha talalsz egy hasznos dolgot, mar
megeri megvenni.

Istvan

 wrote:

> Lattam az ujsagosnal egy Programozok Gyujtemenye (?) nevu
> multimedias kiadvanyt. Egy CD-t lattam benne, es allitolag egy
> osszefoglalo mindenre kiterjedo gyujtemeny. Megvan valakinek?
> Erdemes megvenni? Jo?

> Felado :  [Hungary]

>kerj helpet a GetLocaleInfo-rol.
>
 wrote:
>> Sziaszok!
>> Lenne egy problemam :
>> Hogy lehet platformfuggetlenul hasznalni az StrToDate fuggvenyt? Ne
>> okozzon problemat az, hogy az operacios rendszer magyar vagy angol
>> nyelvu-e. (Delphi 3.0 Standard)
>> Elore is kosz a segitseget.
>>
>> Szasz Oliver

En inkabb ezeket hasznalnam, es harom reszletben kezelnem a datumot a
kepernyon is:
function EncodeDate(Year, Month, Day: Word): TDateTime;
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

esetleg 
Edit1.text := FormatDateTime(ShortDateFormat, date);
try
   strToDate(edit1.text);
except
end;

tovabbi info: Delphi help "Currency and date/time formatting variables" cimszonal
--
Üdv.  Gabi

  writes:

> Tud valaki valami leírást (+tutorial) Objective C-ről?
> URL lenne a legkorrektebb, de bárminek örülnék.

<http://developer.apple.com/techpubs/macosxserver/ObjectiveC/index.html>;

and

<http://www.slip.net/~dekorte/Objective-C/>;

and 

<http://www.cis.ohio-state.edu/hypertext/faq/usenet/Objective-C/answers/faq.html>;

Hello

>Felado :  [Hungary]
>Temakor: 0^0=0? (Re: Bezier, Spline) ( 19 sor )

>eset amikor 0-t kell a 0-dik hatvanyra emelni. Szerintem az
>eredmeny 1 lenne, de a C math libje es a szamologepem szerint ez
>egy error.
>Tehat a kerdes az, hogy 0^0 (vagy 0**0 ;)) eredmenye mennyi?
>0? 1? vegtelen? error? miert?

Az eredmény kérdéses, ugyanis a dolog elvileg nem értelmezett.

" A hatványfogalmat minden egész kitevore kiterjesztjük. A kiterjesztést
azonban úgy akarjuk értelmezni, hogy a hatványozás pozitív egész kitevokre
megismert azonosságai érvényben maradjanak, ezért a 0, ill. negatív egész
kitevos hatványokat a racionális számok körében a következo módon
értelmezzük:
a.) Nulla, ill. negatív kitevos hatvány alapja nem lehet 0."

/Reiman István:Matematika/

Vagyis 0^0 nem értelmezheto. Így a math lib és a számológéped tökéletesen
korrekt.
Biztosan lehet ilyen eset a képletben?

Dávid

> Tudna segoteni valaki Clipper-ben
> Magyar ABC szerint szeretnThetak tssblsszatokat rendezni. (T-Browse)
> Van /tlet?

Itt egy lehetseges mod. Szerintem mukodokepes, bar nagyon
lassu lehet. Erdemesebb lenne C-ben vagy assemblyben megirni.

k_tibor

index on abc(<cMezo>)

Function Abc(cMezo)
local Abc:='',i:=0
for i:=1 to len(cMezo)
   do case
   case subs(cMezo,i,1)=='a'
      Abc:=Abc+'a'
   case subs(cMezo,i,1)=='a'   //a'
      Abc:=Abc+'b'
   case subs(cMezo,i,1)=='b'
      Abc:=Abc+'c'
   case subs(cMezo,i,1)=='c'
      Abc:=Abc+'d'
   case subs(cMezo,i,1)=='d'
      Abc:=Abc+'e'
   case subs(cMezo,i,1)=='e'
      Abc:=Abc+'f'
   case subs(cMezo,i,1)=='e'   //e'
      Abc:=Abc+'g'
   case subs(cMezo,i,1)=='f'
      Abc:=Abc+'h'
    .
    .
    .
   endcase
next
Return Abc

Sziasztok !

Kimondottan stringmuvelet nem tul sok van, de ha kihasznalod, hogy
a lista tulajdonkeppen a string egyfele felhasznalasa es hogy
az oda-vissza konverzio lehetoseg adott akkor a listamuveleteknel
mar talalsz nehany utasitast.
Azert en is kuldok nehanyat, amit hamarjaban kiotlottem :

proc s_insert { mibe mit honnan } {

	set lmibe [split $mibe ""]

	set eredmeny [linsert $lmibe $honnan $mit]
	set eredmeny [join $eredmeny ""]
return $eredmeny
}

proc s_replace { mibe mit honnan } {

	set lmibe [split $mibe ""]
	set hossz [string length $mit]
	
	set eredmeny [lreplace $lmibe $honnan [expr $hossz+1] $mit]
	set eredmeny [join $eredmeny ""]
return $eredmeny
}

proc s_cut { mibol honnan mennyit } {

	set lmibol [split $mibol ""]
	set eredmeny ""
	
	for {set i 0} {$i<$mennyit} {incr i 1} {
	    set a [lindex $lmibol [expr $honnan+$i]]
	    set eredmeny [concat $eredmeny $a]
	}
	set eredmeny [join $eredmeny ""]
return $eredmeny
}


proc s_remove { mibol honnan mennyit } {

	set lmibol [split $mibol ""]

	for {set i 0} {$i<$mennyit} {incr i 1} {
	    set lmibol [lreplace $lmibol $honnan $mennyit]
	}
	set eredmeny [join $lmibol ""]
return $eredmeny
}

Az eljarasnevek magukert beszelnek.
Ha valaki meg komolyabban foglalkozik a nyelvvel es egyszerubb
megvalositast is tud orommel fogadom, ill. hogy a s_replace-ben
miert csak ugy mukodott helyesen ha az a +1 ott van.

Szambi