Odkazy na dokumenty

Seznam témat:

řešení

Řešení

Odkazy se kumulovaně ukládají do řetězce (např. omater.dokumenty), který lze pomocí skriptu sestavit i rozebrat pomocí třídy TDocLinks. Jedná se o kolekci objektů TDocLink, které představují dvojici údajů (typ a umístění dokumentu).

var

  Links: TDocLinks;

  Link: TDocLink;

  I: integer;

  S: string;

begin

  Links := TDocLinks.Create;

  try

    //příklad syntézy řetězce s odkazy

    Links.Add(dbdcFile, 'Skladové karty\DSC0001.jpg'); //interní soubor

    Links.Add(dbdcExtFile, '\\server\docs\smlouva_vzor.doc'); //externí soubor

    Links.Add(dbdcShellLink, 'http://www.vision.cz'); //obecná adresa

    S := Links.InlineData;

    OKBox(S);

    //příklad analýzy řetězce s odkazy

    Links.Clear;

    Links.InlineData := S;

    for I := 0 to Links.Count-1 do begin

      Link := Links[I];

      OKBox(Link.DocKey);

    end;

  finally

    Links.Free;

  end;

end.

Související témata