Q&A

  • 파일을 비교할라고 하는데요..
파일의 내용을 읽어오긴 했는데..
어떻게 다른 파일하고 비교하는지 모르겠어요..
일단은

procedure TForm1.SplitFileData(FileString : String);
var
    DimCnt,StrLen : Integer;
    EDIData : Array[1..3] of String;
    TempString : String;
begin
    DimCnt := 1;

    For StrLen := 1 to Length(FileString) do
    begin
        If FileString[StrLen] = '|' Then
        begin
            EDIData[DimCnt] := TempString;
            TempString := '';
            Inc(DimCnt);
        end
        else
            TempString := TempString+FileString[StrLen];
    End;
        EDIData[DimCnt] := TempString;
end;

이렇게 해서 파일내용을 읽었거든요..

어떻게 비교해야 하는지 좀 알려주세요..

비교해서 하나라도 정보가 다른걸 다운받을 거예요..

알려주세요~~ㅠㅠ
1  COMMENTS
  • Profile
    바다를향해 2002.10.18 01:42
    var
      String1, String2 : string;
      I : Integer;
    begin
      String1 := 'STEVE';
      String2 := 'Steve';
      I := CompareStr(String1, String2);  { the value of I is < 0 }
      if I <> 0 then
        MessageDlg('The strings are not equal', mtWarning, [mbOK], 0)
    end;
    문자열 비교하는 예제입니다.
    델파이 헬프에서 발췌...

    그럼 즐프..^^;;;