Użytkownik:Sebasoul: Różnice pomiędzy wersjami

Z Motława
(costam)
Linia 13: Linia 13:
  
 
== costam ==
 
== costam ==
 +
[[file:test.txt]]
 +
 
<source lang=pascal>
 
<source lang=pascal>
 
function GetDllVersion(aFN:String;aTyp: Integer=0): String;
 
function GetDllVersion(aFN:String;aTyp: Integer=0): String;

Wersja z 06:49, 17 kwi 2009

Info.png Plik:Moderator.gif SebASoul - Sebastian Arkadiusz Dusza


plik do pobrania Tralalala



Więcej się dowiesz tu... Moja strona domowa

costam

Plik:Test.txt

function GetDllVersion(aFN:String;aTyp: Integer=0): String;
var
  aVerInfo: TJclFileVersionInfo;
begin
  aVerInfo := TJclFileVersionInfo.Create(aFN);
  try
    if (aTyp = -1) then
    begin
      Result := aVerInfo.BinFileVersion;
    end
    else
    begin
      Result := ConcatStr(Result, 'FileVersion: '+aVerInfo.BinFileVersion, sLineBreak);
      Result := ConcatStr(Result, 'ProductVersion: '+aVerInfo.BinProductVersion, sLineBreak);
    end;
  finally
    aVerInfo.Free;
  end;
end;
<?php
    $v = "string";    // sample initialization
?>
html text
<?
    echo $v;         // end of php code
?>


Zasada poufności

Information.gif A co chcesz tu mieć ?

test

Field Type Null Key Default Extra
idn int(11) NO PRI NULL auto_increment
GUID varchar(38) NO UNI
GUID_NG varchar(38) NO MUL
fieldname varchar(38) NO
rule_order int(11) NO 0
admin int(11) NO 0
validation_rule_type varchar(20) YES NULL
validation_rule varchar(200) YES NULL
condition_ruleset_guid varchar(38) NO MUL
message_if_not_valid text YES NULL

zarzad

Role
A
B
ZA
Ala
X
X
Ola
X
X