|
•Отв: Отв: ну я услышал. - guest, 30.07.2007 10:52:01 |
|
|
так... начал переписывать на ваш макс на свой язык. времени мало но есть. много вопросов по делфи, потомусто тамошнего синтаксиса я вообще не понимаю. вот например несколько:
{
Copyright (C) 2000-2007 by Artyom Litvinovich
Description:
Algorithmlib File functions.
}
{$DEFINE encodedfop}
{$DEFINE usevfs}
unit filef;
interface
uses
{$ifndef UNIX}windows,{$endif}
{$ifdef usevfs}vfs,{$endif}
sysutils;
const
{$ifndef UNIX}
CH_SLASH=`/`;
{$else}
CH_SLASH=`\`;
{$endif}
//{$H-}
type astr=array of string;
{$ifndef usevfs}
function filelist(fils:string;fattr:longint):astr;
procedure wipedir(path:string);
procedure copyfile(inp,outp:string);
function readstr(var tinf:file):string;
function readbool(var tinf:file):boolean;
function readint(var tinf:file):longint;
function readext(var tinf:file):real;
procedure writestr(var touf:file;st:string);
procedure writebool(var touf:file;bl:boolean);
procedure writeint(var touf:file;inn:longint);
procedure writeext(var touf:file;inn:real);
implementation
Вот мне тут нифига вообще не понятно что такое фигурные скобки в начале, что такое {$DEFINE {encodedfop}
{$DEFINE usevfs}
unit filef;
interface
uses
{$ifndef UNIX}windows,{$endif}
{$ifdef usevfs}vfs,{$endif}
sysutils;
(видимо шапка файла но как её разобрать?!)
что такое {$ifndef usevfs} итд итп.
потом вот функция:
function filelist(fils:string;fattr:longint):astr;
var
srch:TSearchRec;
cfile:string;
nf:boolean;
ar,mc:integer;
label 2;
begin
setlength(result,0);
nf:=true;
mc:=0;
ar:=findfirst(fils,fattr,srch);
nf:=true;
if ar<>0 then begin
findclose(srch);
goto 2;
end;
cfile:=srch.name;
сначала определение, потом список параметров, потом var чётотам... да и с первой строчкой не ясно нифига... скажите асю чьюнить или вот мою возьмите 317076775 чтоб было кому вопросы задавать. |
|
| |