검색 및 파일 검색

Question

그래서 사용자가 특정 이름의 텍스트 파일을 검색 할 수 있도록이 코드를 작성한 다음 텍스트 파일의 이름을 입력하고 실제로 해당 행에 쓰여진 내용을 편집합니다. 즉 라이온스라는 텍스트 파일을 검색 한 다음 이름이 Michael과 같은 줄을 편집합니다. \ 유일한 문제는 편집하는 동안 이름이 이전에 있던 내용을 덮어 쓰는 것입니다. 제 말은 원래 이름 인 Alexander가 그 이름을 mike로 변경하기 위해 해당 레코드를 편집하면 텍스트 파일에 남아있는 문자가 그대로 유지되어 텍스트 파일의 이름이 Mikeander라는 것입니다. 나머지 편지는 보관했습니다. 이것은 레코드의 모든 항목에 대해 발생합니다.

type 
    TCustomer = Record 
     FirstName : String[15]; 
     LastName : String[15]; 
     EventDate : String[15]; 
     SeatNumber : String[100]; 
     PhoneNumber : String [100]; 
     Adress : String[100] 
    end; 

var 
Form4 : TForm4; 
FirstName : string; 
LastName : String; 
EventDate : String; 
SeatNumber : String; 
PhoneNumber : String; 
Adress : String; 




begin 
      usersFilename := Inputbox('Which event needs its details edited?', '', ''); 
      oldname := inputbox('Old Name','Input old name',''); 
      newname := inputbox('New Name','Input new name',''); 

      AssignFile(myFile, usersFilename); 
      Reset(myFile); 

      //Find the right record position by searching the file for the namne 
      count := 0; 
      while not Eof(myFile) do 
      begin 
       Read(myFile, Customer); 
       if Customer.FirstName = oldname then 
       recordNumber := count; 
       count := count+1; 
      end; 

      //Seek finds that record in the file and points at it, the read will read the current record 
      Seek(myFile, recordNumber) ; 
      Read(myFile,Customer) ; 
      //Set the new name for that record into our customer record 
      Customer.FirstName := newName; 
      Customer.LastName := Inputbox('Last Name', '', ''); 
      Customer.EventDate := Inputbox('Event Date', '', ''); 
      Customer.SeatNumber := Inputbox('Seat Number', '', ''); 
      Customer.PhoneNumber := Inputbox('Phone Number', '', ''); 
      Customer.Adress := Inputbox('Adress', '', ''); 
      //read moves to the next record, so we have to go back again to the original record, then write 
      Seek(myFile, recordNumber); 
      //Write the current record which just has the name updated 
      Write(myFile, Customer); 

      showmessage('Successfully updated name'); 
      CloseFile(myFile); 
     end; 

어떻게 완전히 원래의 단어를 제거해야합니다 말해 수 있다면

, 대신 그냥 내가 그것을 대단히 감사하겠습니다 새로운 단어와 함께 그것을 매쉬업. 감사합니다

Answer 1

MartynA와 Free Consulting과 같은 실제 파일의 바이트에 대해 궁금한 점이 있다면이 절차를 사용하여 실제 내용 뒤에 짧은 문자열의 메모리에있는 가비지를 "정리"했습니다.

{$IFDEF CPUX64 } 
PROCEDURE TidyString(VAR STR : OpenString); 
    BEGIN 
    IF LENGTH(STR)<>HIGH(STR) THEN FillChar(STR[SUCC(LENGTH(STR))],HIGH(STR)-LENGTH(STR),0) 
    END; 
{$ELSE } 
PROCEDURE TidyString(VAR STR : OpenString); ASSEMBLER; PASCAL; 
    ASM 
      PUSH EBX 
      PUSH ESI 
      PUSH EDI 

      MOV  EDI,STR 
      MOVZX EBX,BYTE PTR [EDI] 
      MOV  EDX,EDI 
      LEA  EDI,[EDI+EBX+1] 
      MOV  ESI,DWORD PTR STR-4 
      CMP  ESI,EBX 
      JAE  @OK 
      MOV  EBX,ESI 
      MOV  EDI,EDX 
    @LOOP: MOV  [EDI],BL 
      MOV  AL,[EDI+EBX] 
      DEC  EBX 
      OR  AL,AL 
      JZ  @LOOP 
      JMP  @OUT 
    @OK: NEG  EBX 
      LEA  ECX,[ESI+EBX] 
      XOR  AL,AL 
      CLD 
      REP  STOSB 

    @OUT: POP  EDI 
      POP  ESI 
      POP  EBX 
    END; 
{$ENDIF } 

설정 한 후, 저장하기 전에 TidyString (Customer.FirstName)을 호출하십시오. 레코드의 다른 모든 필드에 대해서도 마찬가지입니다.

면책 조항 : 짧은 문자열에만 작동하므로 모바일 컴파일러에는 적합하지 않습니다.