Kylix/Pascal

Hali!

Kellene írnom egy kliens/szerver rendszert.
Lenne egy fő gép ill. 3-4 gép, ami projektorhoz kapcsolódik. A fő gépen összeállítanánk egy vetítésprogramot, és a projektoros gépek felé szépen leküldené, hogy mikor melyik prezit kell betölteni v. elindítani.
A vezérléssel rendben is vagyok és a kommunikációt is meg tudom úgy oldani, hogy a gépek egyszerű szöveges parancsokat küldenek egymásnak.
Amit nem tudok, az az, hogy vajon melyik megoldás volna a célszerűbb:

A: A projektoros gépek vannak "szerver" módban, figyelnek egy portot és az irányító gépről kapcsolódunk rájuk.
B: A fő (vezérlő) gép a szerver és a projektoros gépek kapcsolódnak rá.

Az volna a lényeg, hogy a rendezvény alatt csak a fő géphez kelljen nyúlni fizikailag, a többi géphez ne, tehát mindent központilag irányítanánk.

Hibatűrés szempontjából szerintem az A megoldás lenne jobb, de hátha tudtok segíteni pár ötlettel ill. ha valaki írt már hasolót, megoszthatná a tapasztalatait.

Előre is köszi,
Moha

Üdv !

Keresnék Delphi 7 környezetbe valamilyen progit amivel a forrásokat lehetne szinkronizálni a fejlesztők között.

SVN-t próbáltuk, de nem vált be, többször is szívtunk miatta.

Valami ingyenes progit tud valaki, ami jól működik a Delphis környezetben ?
Előre is köszi !

turbo pascal 7.0
elkezdtem írni egy kvízjátékot.
a kérdéseket egymás után íratnám ki egy konstans string tömbbol.
a probléma, hogy a string értékének megadásakor vagy line too long hibát jelez, vagy ha több sorba írom akkor meg string constant exceeds line hibát jelez.
légyszi segítsetek, elore is thx ja és sorry a kisbetuk miatt de vnc-n keresztül nem tudok nagybetut írni, de ez már rgy másik topic témája lehetne.

Hogyan oldhatom meg az karaktersorozat ékezettelenítését free pascal-ban?
Íme a kód, csak épp a közepében lévő pozícióegyeztetés elhasal azon, hogy a az angol és a magyar változó nem egyforma hosszú. (szebb, behúzásos változat)


function ekezettelen(szoveg:string):string;
var magyar,angol: string;
f,m: Byte;


begin
m:=0;
magyar:='áéíóöőúüűÁÉÍÓÖŐÚÜŰ';
angol:= 'aeiooouuuAEIOOOUUU';

for f:=1 to length(szoveg) do begin
Write(szoveg[f]);
m:=pos(szoveg[f],magyar);
WriteLn(m,' ',szoveg[f],' ');
if (m<>0) then szoveg[f]:=angol[m];
m:=0;
end;

ekezettelen:=szoveg;
end;

begin
write(ekezettelen('Árvíztűrő tükörfúrógép'));
end.

Most viccen kívül kérdezem:

Éles környzetben ismertek olyan project-et, amit ezen a nyelven fejlesztenek? Ha igen, akkor miért?

Sziasztok!

XML fájlból szeretnék UTF-8 kódolású adatokat beolvasni. Linuxon minden oké, de Windows XP-n már más a helyzet: a beolvasott adatokban az ékezetes karakterek helyén kérdőjelek szerepelnek. Egy biztos, nem a megjelenítéssel van a baj. A mellékelt link végén levő fájlban van egy mintaprogram forráskóddal és képernyőmentéssel.
Az interneten keresgéltem rá gyógyírt, de csak annyit tudtam meg, hogy már másnak is volt ilyen problémája.

Rendszer: Windows XP Home, Lazarus 0.9.28-2, Freepascal 2.2.4-3
Mintaprogram: http://web.t-online.hu/miklosij/other/read_utf8_xml.zip

Hogyan lehet Delphi (7) alatt a TreeView komponenest úgy beállítani, hogy amikor nem ő van a fókuszban akkor is lehessen látni melyik node van kijelölve? Vagy van-e valahol ilyen free komponens?
Előre is köszi!

Jó dolog ez a lazarus, csak egy bajom van vele: az égegyvilágon semmilyen *rendes* doksi nincs hozzá. Ha akarok valamit, akkor delphi környékén kell turkálni.
Éppen előkészítek dolgokat egy majdani munkához (amit remélem meg is rendelnek), lazarusban szándékozom majd elkövetni. Mivel a priuszomban csupán clipper, pascal, némi php és baromi sok z80 assembly fordul elő, ámde delphi nem, ezért az átállás nekem meglehetősen nehézkes.
A kérdésem: a lazreport szerkesztőjét hogyan lehet előcsalogatni? Írják valahol, hogy ugyanolyan egyszerű, mint a delphiben.
(Nnna, kösz. Most biztosan tudni fogom.)

Szóval?

Minden megtalalt dokumentacio /gugli, hupwiki, konyv/ (meg a sajat ezer eves emlekeim) szerint a lenti kodot valahogy igy kell megirni. Ellenben FreePascal anyazik. Esetleg meg tudja valaki mondani, hogy hogyan kellene azt a rohadt forward hivatkozast megejteni ahhoz, hogy le is forduljon?

program lo;

procedure egy( dd: longint );forward;

procedure ketto( d: longint );
var     i:longint;
begin
i := d * d;
egy( i );
writeln( 'Ez itt a ketto: ', i );
end;

procedure egy;
var     i: longint;
begin
i := dd * dd;
writeln( 'Ez itt az egy: ', i );
end;

BEGIN
egy( 8 );
ketto( 8 );
END.

Es ez itt a fordito nyavalygasa:
$ fpc x
Free Pascal Compiler version 2.2.2 [2009/02/22] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: FreeBSD/ELF for i386
Compiling x.pas
x.pas(17,9) Error: Identifier not found "dd"
x.pas(17,13) Error: Identifier not found "dd"
x.pas(25) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/local/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
$

De mi a jo edes anyjaert nem latja?

Üdv emberek!
Nem értek egy feladatot , szeretném ha segítene benne valaki.
Előre is köszönöm

A feladat:
Generálj 3 számot (ez eddig megy) irasd ki őket válaszd ki a legkisebbet és legnagyobbat. és írasd ki a 3 mal oszható számokat a legkisebbtől a legnagyobbig

hogy kéne kiválasztani legkisebb és legnagyobb számot a generáltakból?
Valaki súgja meg a megoldást please.
Tomcsi1987