파일의 내용을 읽어오긴 했는데..
어떻게 다른 파일하고 비교하는지 모르겠어요..
일단은
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;
이렇게 해서 파일내용을 읽었거든요..
어떻게 비교해야 하는지 좀 알려주세요..
비교해서 하나라도 정보가 다른걸 다운받을 거예요..
알려주세요~~ㅠㅠ
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;
문자열 비교하는 예제입니다.
델파이 헬프에서 발췌...
그럼 즐프..^^;;;