uvar.~pas

来自「某计算机学院的毕业设计及论文」· ~PAS 代码 · 共 42 行

unit uVar;

interface

type
  TXi = record
    ID:string;
    Name:string;
  end;
var
  uXI:array of TXi;
  uNJ:array [0..3] of string;
  uXiCount:integer;
  uZhou:array [0..6] of string;
  uJie:array [1..5] of string;
  function IdtoName(ID:array of TXi;count:integer;IdName:string): string;
implementation
//Result := Copy(Result, 2, Length(Result)-1);
function IdtoName(ID:array of TXi;count:integer;IdName:string): string;
var
  i,a,b:integer;
begin
  Result := '';
  a:=0;
  b:=count-1;
  i := (a+b) div 2;
  while id[i].ID<>IdName do
  begin
    if (a=i)or(b=i)  then
    exit;
    if  IdName > id[i].ID then
      a:=i
    else
      b:=i;
    i := (a+b) div 2;
  end;
  if id[i].ID=IdName then
  Result := id[i].Name;
end;

end.