> Turbo Pascal-ba kellene 2 db 3000 elemes, mezonkent 21
> karakterrel tomb.
> A TP azt irja ki a deklaralasnal: Stucture too long
> Hogyan lehetne megis ekkora tomboket lefoglalni? Egy Nc
> klonhoz kellene.

Mondok egy egyszeru megoldast, bar nem ez a legkorrektebb.
Fogsz egy tombot, amiben 1000 rekord van, es egy pointert.

Fogsz egy masik tombot, amiben az adott pointer-ek vannak.
Ez ossze fog szorzodni; 30 elemu tomb mar 30.000 fajlhoz eleg,
annal tobb meg nem is fer 640k-ba. :)

Igy van egy kis meretu tomb ami statikus (30*4 byte), a rekordok
pedig a dinamikus tombokben lesznek.

type
  rec = record
    {ez a 21 byte}
  end;
  tTomb2 = array [0..999] of rec;
  pTomb = ^tTomb2;
  tTomb2 = array[0..29] of pTomb1;

var
  tomb1: tTomb1;

Amikor gyujtod ossze a fajlok neveit, minden 1000-hez lefoglalsz
egy ujabb tombot, es a pointert beteszed a tomb1-be. A rekordra
pedig a ket tombbel hivatkozhatsz: tomb1[x div 1000]^.[x mod 1000]

Ujraolvasasakor szepen felszabaditod a memoriat, es ujra kezdheted
lefoglalni a tomboket.

Alternativ megoldas a Free Pascal, BP kompatibilis modban. :-D

Andras

 wrote:
> Szuksegem volna a segitsegetekre, ugyanis egy Watcom SQL 4.0-s
> adatbazis van a birtokomban, amiben hibas hivatkozasok vannak, de nem
> tudom megnyitni. Ehhez meg nem volt ODBC drajver (az Access pl. nem
> kepes megnyitni). Ha tudtok, akkor erdekelne, hogy milyen programot
> ismertek vagy javasoltok az adatbazis kezelesere (ha lehet, akkor
> tablazatos formaban lehessen szerkeszteni, mert nem kivanok
> hosszadalmas lekerdezeseket irogatni, mivel a megoldas surgosen
> kellene). Valaszotokat elore is koszonom!

hat, nem tudom hogy mukodik-e de probald ki. a watcom sql-t megvette a
sybase es abbol keszitette az adaptive server anywhere-t. ahhoz van odbc
driver, ha nagy mazlid van megy vele a watcom is.
jenci

Hi!

Az ABAP/4 az SAP vallalatiranyitasi rendszerprogramozasi nyelve. A syntax
C tipusu. Foglalkozik ablakkirakasi es SQL tipusu eljarasokkal, tehat egy
adatbazis kezeloi feluletet lehet fele konnyeden programozni. Nagy
valszinnel jegyzetet nem talalsz hozza (mivel keves helyen hasznaljak),
raadasul ha nem is programoztal meg, akkor 21 het keves lesz.

udv.: XiX/PsychoMix

Hi Coders!

Adot bitpozicion valo negalast szeretnek.
=
= forras bitsorozat  10101011010101001010001111010101
= negalasi bitmaszk  11110000111100001111000011110000
=                    --------------------------------
= eredmeny 32-biten  01011011101001000101001100100101
=
(lehet, hogy a fotex.hix elcseszi a sorokat.

A negalasi bimasznal ahol 1-es van ott negal, ahol 0-s
ott marad az eredeti. Milyen megoldasa lehet a problemanak. ASM, C, PAS johet.

udv.: XiX/PsychoMix

Vki szorakozott sikerrel az EM_GETHANDLE / EM_SETHANDLE uzenetekkel?!
Ha igen kerlek egy reply-t.
Koszi.

Ha'j Coderek!

Mar egyszer kerdeztem, de mivel nema csend fogadott, ezt megtennem
megegyszer:

Hogy lehet Delphiben atlatszo ablakot csinalni... addig ok, hogy a formnak
nincs stilusa, de mi lesz a szinevel? Hogy lesz az transparent? Mert a form
color tuljadonsaga nem fogadja el ezt az erteket. Nekem pedig teljesen
atlatszo
kell!
Meg lehet ezt oldani Delphiben, vagy van valmi API fugveny erre?
Kerlek segitsetek!!! Ne haljak meg hulyen! :) Pliiiiiiz!

Bocs, az Explorere Shell Extensionel bele lehet épülni és nek kell HOOK, de pl.
a Wordbedbe már HOOKkal kell...vagy van más megoldás is?

(webes bekuldes, a bekuldo gepe: 212.105.231.2)

Szevasz!

Hasznalj tipusos mutatot a heap-en(a valtozod akar 64k meretu lehet es
osszesen majdnem 640k memoria all rendelkezesedre):

type
  TStrTomb = array[1..2978] of string[21];
var
  T : ^TStrTomb;
  i : longint;
 ....
  T := New(TStrTomb);
  for i:=0 to 2978 do
    T^[i] := {vmi string[21] tipusu}
 ....

Joo codolast!
Sipi

p.s.: a $M-el ne felejtsd el beallitani a heap meretet eleg nagyra!

Szevasz Jozsi, Szevasztok!

>> Tudja valaki, hogyan lehet ravenni a CBuilder4-ben irt
>> programomat arra, hogy mindenkeppen vegrehajtsa a
>> SetForegroundWindow()-t?

>Felado :  [International]
>Nem az
>Application->ProcessMessages();
>kell a beállítás után?
>Józsi

Kozben kiderult, hogy a nyomorultja csak akkor nem hajtja vegre (eleg
gyakran), ha CBuilder 4-bol futtatom a programot. Ha onmagaban futtatom,
akkor mukodik.

Valaszodat nagyon koszonom.

(::-{)> Torma Istva'n, TOR, 
(Kuldtem listara es maganba is.)

Szevasz/tok!

Biztos sokaknak ismeros az alabbi site, nekem uj volt.
http://msdn.microsoft.com/library/psdk/winbase/hooks_9rg3.htm

(::-{)> Torma Istva'n, TOR, 
A valaszokat ide a listara kerem, mert olvasom es mert mast is erdekelhet

Hi!

Koszonom az eszreveteleket, otleteket, kritikakat.
De meg mindig egy helyben topogok!
Kiprobaltam az alabbi programreszt: (Sajnos a feladot elfelejtettem )
type
  allfiles=record
   d:Array[1..3000] of record
     name:array[1..12] of string;
     size:longint;
     date:longint;
     attr:byte;
     end;
   n:word;
   end;
var
  left,right:^allfiles;
.

A leiras szerint ez a legegyszerubb mod. Miutan az egesz programot atalakitotta
m, kiderult, hogy megse a legjobb (Vagy en vagyok nagyon lamer) Egy csomo file
es konyvtarnev hibasan jelent meg mindket panelban! Vigyorgo fejek, nyilak hemz
segnek! Pl: Command.com ->  command#abl (# : az igazi jelet nem talaltam )
Hol a hiba ?

Segitsegeteket elore is koszonom!!!