Git-Url: http://git.frugalware.org/gitweb/gitweb.cgi?p=cfpm.git;a=commitdiff;h=8a84cb4d56526a1cef4d38fa3ff16938b8af4a70
commit 8a84cb4d56526a1cef4d38fa3ff16938b8af4a70 Author: James Buren <[email protected]> Date: Wed Jul 29 01:22:17 2009 -0500 Test.pas * convert to ansistring diff --git a/Test.pas b/Test.pas index 7b32ad4..a3e637c 100644 --- a/Test.pas +++ b/Test.pas @@ -6,7 +6,7 @@ Var Ret : Integer; Db : PPM_DB; Pkg : PPM_PKG; - PkgName : String; + PkgName : AnsiString; Begin WriteLn('Initializing pacman, phase 1.'); @@ -23,7 +23,7 @@ If Db <> Nil Then Begin WriteLn('Specify a package.'); Read(PkgName); - Pkg := pacman_db_readpkg(Db,@PkgName[1]); + Pkg := pacman_db_readpkg(Db,PChar(PkgName)); If Pkg <> Nil Then Begin WriteLn('Package Name: ',PChar(pacman_pkg_getinfo(Pkg,PM_PKG_NAME))); _______________________________________________ Frugalware-git mailing list [email protected] http://frugalware.org/mailman/listinfo/frugalware-git
