
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Elérési útvonal rövidítése másképpen

Példaprogram letöltése

4278 bájt

Egy elérési útvonalat rövidítettünk úgy, hogy egy adott pixel szélességű területen meg tudjuk jeleníteni. Most egy másféle rövidítési eljárást fogunk használni, amikor azt adjuk meg, hogy az útvonalat hány karakteren szeretnénk ábrázolni. Ha ez kevesebb, mint az útvonal hossza, akkor bizonyos részeket pontokkal helyettesítünk. Ennek a feladatnak a megoldására is Windows API függvényt használjuk.

A függvény neve PathCompactPathEx.

function PathCompactPathEx(pszOut, pszSrc: PChar; cchMax: integer; dwFlags: dword): boolean; stdcall; external 'shlwapi.dll' name 'PathCompactPathExA';

A függvény első paramétere egy pointer az output bufferre. Ebben fogjuk megkapni a rövidített útvonalat. A második paraméter az útvonal, amit rövidíteni szeretnénk. A harmadik paraméterben kell megadni, hogy az útvonalat hány karakteren jelenítse meg. Az utolsó paraméter későbbi fejlesztésekhez van fenntartva, ezért az értéke jelenleg 0.

A függvény visszatérési értéke igaz, ha a rövidítés megtörtént, és hamis, ha nem.

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  path: array[0..MAX_PATH] of char;
begin
  if SpinEdit1.Text<>'' then begin
    try
      PathCompactPathEx(
        path,
        'C:\Program Files\Borland\Delphi5\Bin',
        SpinEdit1.Value,
        0);
    except
      path:='HIBA!';
    end;
    Label3.Caption:=path;
  end;
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
1018	Delphi	Vonalkód készítő komponens	1. rész
1028	Delphi	Vonalkód nyomtatása a QuickReport-al	2. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2002 évkönyv 25. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!