>Tudja valaki, hogyan lehet Delphiben egy adott szoveget Word formatumba
>exportalni?
Hasznald a Word OLE vagy COM interfeszet a dokumentumok letrehozasahoz!
Ha D5-od van es annak telepitesekor mar installalva volt az Office is, akkor
a Servers komponens-fulon automatikusan ott lesznek a szukseges
komponensek...

Gabor

>3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
>aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
>Van valami otletetek, hogy hogyan oldjam meg a problemat???
>Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
>a 'nev' mezo alapjan...

En 2 konvertalassal oldottam meg.
rendezes elott:
A=0x41
Á=0x42
B=0x43
 .
 .
Z=0x63
rendezes...
rendezes utan:
0x41=0x41
0x42=0x8f (?)
0x43=0x42
 .
 .
0x63=0x5b

koka.

Szevasz!

> Felado :  [Hungary]
> Temakor: A'be'ce' sorrend ( 14 sor )
> Idopont: Tue Oct 31 16:43:43 EST 2000 CODER #991
> - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> Irok egy progit es fontos lenne belerakni az abc rendezest.
> Meg is irtam, aztan jott a hidegzuhany:
> A magyar betuk!!!
> 3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
> aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
> Van valami otletetek, hogy hogyan oldjam meg a problemat???
> Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
> a 'nev' mezo alapjan...
> Csak ez a rohadt magzar billentzuyet... :)))))
Ha jol ertelmezem a problemad az, hogy az ekezetes betuk ASCII kodja nincs
szep sorban a tobbi betuvel 'ABC'-ben.

1)
felirod a magyar ABC-t a neked megfelelo sorrendben
sorszamozod a betuket 1-BetuDB-ig
alairod a fileban szereplo ASCII kodjaikat
2)
letrehozol egy tombot:
var
  botuk: tomb[0..255] of byte
3)
a betuk ASCII kodjat hasznalva indexkent, az adott helyre beirod a sorszamot
4)
rendezeskor a karakter 'erteket' a botuk[Ord(karakter)] adja meg

Epp most talaltam meg egy regi progimat. Abban igy oldottam meg:
---------------------Pascal code---------------------
function AtErtekel( s:string ) : string;
  const                                 { a   b   c   d   e   f   g}
    Ertekek : array['A'..'Z'] of char = (#48,#50,#51,#52,#53,#55,#56,
{              h   i   j   k   l   m   n   o   p   q   r   s   t   u}
              #57,#58,#60,#61,#62,#63,#64,#65,#69,#70,#71,#72,#73,#74,
{              v   w   x   y   z}
              #78,#79,#80,#81,#82);
  var
    atm : string;
    ic : char;
    shossz : byte;
    ekez : boolean;

  begin
    shossz := length(s);
    FillChar(atm,30,' ');
    for i:=1 to shossz do
      begin
        ic := s[i];
        ekez := ic in Ekezetes;
        if ic<>' ' then
          if not(ekez) then atm[i] := Ertekek[Upcase(ic)] else
            case ic of
              'á','Á' : atm[i] := #49;
              'é','É' : atm[i] := #54;
              'í','Í' : atm[i] := #59;
              'ó','Ó' : atm[i] := #66;
              'ö','Ö' : atm[i] := #67;
              'o','O' : atm[i] := #68;
              'ú','Ú' : atm[i] := #75;
              'ü','Ü' : atm[i] := #76;
              'u','U' : atm[i] := #77;
            end;
      end;
    AtErtekel := atm;
  end;

function Nagyobb( elem1,elem2:Szemely ) : boolean;
  begin
    if AtErtekel(elem1.nev)>AtErtekel(elem2.nev) then Nagyobb := true else
    if (elem1.nev=elem2.nev) then

{itt egyeb mezok szerint}

    else Nagyobb := false;
  end;
------------------code vege----------------------(ez mukodott)
lehet valasztani

Jo codolast!
Sipi

Sziasztok!

CBuilder kornyezetben szeretnek pl. OnClick esemenyre egy elore megadott
weboldalt letolteni es a tartalmat megjelenittetni. A legjobb az volna, ha a
gepen levo bongeszot aktivizalna a progi (IE vagy Netscape) az
alapertelmezett csatlakozassal. Hogyan oldhato meg, milyen komponensek
szuksegesek hozza, illetve a helpben talalhato peldaprogram futtatasa soran
miert kaphatok ESockError; Host LookUp Failed hibauzenetet?
A valaszokat elore is koszonom.
Otto

Hi Coderek!

Irok egy progit es fontos lenne belerakni az abc rendezest.
Meg is irtam, aztan jott a hidegzuhany:
A magyar betuk!!!
3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
Van valami otletetek, hogy hogyan oldjam meg a problemat???
Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
a 'nev' mezo alapjan...
Csak ez a rohadt magzar billentzuyet... :)))))

Kosz,
       TCHeeCo
--------

hi,
irhattad volna hogy C vagy pascal, de vegulis tokmind1. Csinald azt, hogy
ahelyett hogy csak siman (int)char-t hasznalsz, vagy barmit a pascalban (ki
emlexik mi van ot... :) ahelyett egy fv-t hasznalsz, ami floatot ad vissza,
majd minden osszehasonlitasnal floattal dolgozol, es a fv a kerdeses betukre
pl. a'-ra a+0.5-ot ad vissza, vagyis 160.5-ot. igy az osszehasonlitas is
mukodni fog, es neked csak egy fv-t kell atirnod meg par fv hivast, vagy
castolas helyett fv-el valo castolast. (float fv(char bla) { if (bla=='a'')
return 160.5 if.........  return (float)bla;

remelem jo,
rev :)

> Irok egy progit es fontos lenne belerakni az abc rendezest.
 > Meg is irtam, aztan jott a hidegzuhany:
 > A magyar betuk!!!
 > 3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
 > aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
 > Van valami otletetek, hogy hogyan oldjam meg a problemat???

Csinalsz egy karaktertombot, aminek az indexe a karakter es az erteke
a karakter sorszama valamely tetszolegesen definialt alfabetikus
rendezes szerint. Amikor osszehasonlitasz ket karaktert, akkor
nem magukat a karaktereket, hanem a tomb[ karakter ] -eket kell
vizsgalnod. Ez a metodus egybol megoldja pl. a gyakran elokerulo
gondot, hogy a kis- es nagybetuket ne kulonboztesse meg meg hasonlok.

Zoltan

Szevasz/tok!

>Felado :  [Hungary]
>Irok egy progit es fontos lenne belerakni az abc rendezest.
>Meg is irtam, aztan jott a hidegzuhany:
>A magyar betuk!!!
>3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
>aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
>Van valami otletetek, hogy hogyan oldjam meg a problemat???
>Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
>a 'nev' mezo alapjan...
>Csak ez a rohadt magzar billentzuyet... :)))))
>       TCHeeCo


(Mindamellett, hogy megertelek, sot e borzaszto es tragikus helyzetbol
megmutatom a kivezeto utat, megdobbent, hogy micsoda indulatok
szabadultak el Benned ezen problema miatt, amelyekhez hasonlokkal
szereny munkank soran allandoan talakozunk. (:-))))))))

Csinalsz egy 256 elemu tablazatot, amelyet inicializalsz ugy, hogy az
elemek erteke megegyezik az index ertekevel.

C-ben pl.  char tabla[256] = {0,
                                          1,
                                          2,
 ...
                                         32,  // Space
 ...
                                        254,
                                        255};

Minden elem melle kommentkent oda irod, hogy milyen karakter a kodja az
adott szamertek.
Ezutan !!!!nagyon figyelmesen!!!!! a sorokat editorral olyan sorrenbe
rakod, ahogy az neked tetszik.

Ezutan csinalsz egy inverz tablat:
char tabla_inverz[256];

A program futasanak elejen pedig feltoltod a tabla_inverz tombot:

for (i = 0; i < 256; ++i)
  {
  tmp = tabla[i];
  tabla_inverz[tmp] = i;
  }

(Altalaban - ) itt valaszthatsz, hogy a programodban mindenhol a
tabla_inverz-zel atkodolt szoveget hasznalod (pl. ha nem kell
megjeleniteni, file-ba írni), vagy csak a sorbarendezo rutinnak adod meg
az így atkodolt szoveget.

(::-{)> Torma Istva'n, TOR, 

(Kuldtem listara es maganba is.)
A valaszokat ide a listara kerem, mert olvasom es mert mast is
erdekelhet.

Sziasztok!

A javaslatom a kovetkezo - mar bevallt eljaras - , amit most itt egy
program erejeig bemutatok az erdeklodoknek.
Elnezest mindenkitol a kod esetleges hosszusagaert:

> -------------------------------------------------------------------

{  437 - es tábla ékezetes karakterkészlete: ĆáÉéíóöÖúüÜ alapján,
   rendezze a NÉV-vektort közvetlen kiválasztással! }
program ekren_1;
uses crt;
const
  n  = 14;
  h  = 255;
  a : array [1..n] of string =
    ( 'Kiss Éva', 'Kiss Zoltán',  'Kípó Géza',
      'Török Ćrpád', 'Török Ede', 'Tóth Miklós',
      'Ćbrahám Pál', 'Abonyi Lajos',
      'Ördögh Szilveszter','Ürmös Ćrpád',
      'Kulics György', 'Kámán Lajos',
      '1.a','2.a' );

type
  st = string[h];
var
  suly,
  jel,
  asv,bsv,
  sv          : st;
  i,j,k       : byte;
  ch          : char;

const
  jel1 = #10#13'0123456789 .,;:!?"'#39'`^*/\+-=<>#@~$&%|()[]{}';
  jel2 = 'AaĆáBbCcDdEeÉéFfGgHhIiíJjKkLl';
  jel3 = 'MmNnOoóÖöPpQqRrSsTtUuúÜüVvWwXxYyZz';

Procedure KONV(c:string; h:byte; var d:st);
  var i : byte;
  begin
    d := '';
    for i:=1 to h do
      d := d + suly[ord(c[i])];
  end;

.

> ---------------------------------------------------------------

Ennyi, remelem nem volt felesleges. Minden jot,
    Horvath Szabolcs