델파이/라자루스의 레코드 배열에 저장된 레코드 검색

Question

많은 레코드를 보유하고있는 배열이 있습니다. 다음과 같이 설정 :

Tcustomer= record 
    Name: string[40]; 
    Address: string[100]; 
    phone: string[15]; 
    email:string[50]; 
end; 

을 지금, 나는이 특정 이름 및 특정 주소를 가진 사람이 배열을 검색하고 싶었 말할 수 있습니다. 나는 이것에 대해 어떻게 갈 것인가? 그래서 기본적으로 하나 이상의 요소를 검색합니다. 첨부

의 사진입니다 (나는 1 개 이상 구체적으로 1 부동산하지만 캔트 필터를 검색 할 수 있습니다) 내 양식이 설정되어 내가 언급하고있는 무슨이에 관해서 더 자세히 보여주지 방법 :

Answer 1

루프를 반복하면서 배열의 여러 속성을 확인하면됩니다. 다음은 이름, 주소, 전화 또는 전자 메일 중 일치하는 항목을 검색하는 예제입니다. 여러 레코드 속성 (예 : 및 주소와 같은)에서 일치하는 항목을 찾으려면 테스트에서 or 절을 if (Customers[Idx].Name = Name) and (Customers[Idx].Address = Address) then과 같이 and을 사용하는 두 개 이상의 테스트로 바꿉니다.

type 
    TCustomer = record 
    Name: string[40]; 
    Address: string[100]; 
    Phone: string[15]; 
    Email:string[50]; 
    end; 

    TCustomerList: array of TCustomer; 

function FindCustomer(const Name, Address, EMail, 
    Phone: string; const Customers: TCustomerList): Integer; 
var 
    i: Integer; 
begin 
    Result := -1;       // Value if no match found 
    for i := Low(Customers) to High(Customers) do 
    begin 
    if (Customers[i].Name = Name) or  // Name matches? 
     (Customers[i].Address = Address) or // Address? 
     (Customers[i].EMail = EMail) or  // Same email? 
     (Customers[i].Phone = Phone) then // Same phone 
     begin 
     Result := i;      // Yep. We have a match. 
     Exit;        // We're done. 
     end; 
    end; 
end; 

샘플 사용 :

function FindCustomerByNameAndAddress(const Name, Address: string; 
    const Customers: TCustomerList): Integer; 
var 
    i: Integer; 
begin 
    Result := -1;       // Value if no match found 
    for i := Low(Customers) to High(Customers) do 
    begin 
    if (Customers[i].Name = Name) then   // Name matches. 
     if (Customers[i].Address = Address) then // Does address? 
     begin 
     Result := i;       // Yep. We found it 
     Exit;        
     end; 
    end; 
end; 

샘플 사용 :

var 
    Idx: Integer; 
begin 
    // Customers is your array of TCustomer in a TCustomerList 
    Idx := FindCustomer('', '', '', 'jsmith@example.com', Customers); 
    if (Idx = -1) then 
    WriteLn('No match found.') 
    else 
    WriteLn(Format('Customer %d: %s %s %s %s', 
        [Idx, 
        Customers[Idx].Name, 
        Customers[Idx].Address, 
        Customers[Idx].Phone, 
        Customers[Idx].EMail])); 
end; 

(예 : Name 및 Address 등) 값의 조합에 일치하려면, 그냥 적절하게 if의 조건을 변경 :

Idx := FindCustomerByNameAndAddress('John Smith', '123 Main Street`); 
if Idx = -1 then 
    // Not found 
else 
    // Found. Same code as above to access record.