Hola,
Aún habrá más formas, además de que no esté todo dicho, pero, vamos:
Código Delphi
[-]
uses
SysUtils;
const
EXAMPLE_FILE_NAME = 'example.txt';
STRING_TO_COMPARE = 'Content of example.txt';
STRING_EQUALS_MSG = 'Ok, the string are the same';
STRING_DIFFER_MSG = 'No, differents strings here';
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
ss: TStringStream;
begin
fs := TFileStream.Create(
ExtractFilePath(ParamStr(0))+EXAMPLE_FILE_NAME,
fmOpenRead
);
ss := TStringStream.Create(EmptyStr);
try
ss.CopyFrom(fs, fs.Size);
if(ss.DataString = STRING_TO_COMPARE)then
ShowMessage(STRING_EQUALS_MSG)
else
ShowMessage(STRING_DIFFER_MSG);
finally
fs.Free();
ss.Free();
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
tf: TextFile;
begin
AssignFile(tf, ExtractFilePath(
ParamStr(0))+EXAMPLE_FILE_NAME);
Reset(tf);
while not Eof(tf) do
ReadLn(tf, s);
CloseFile(tf);
if(s = STRING_TO_COMPARE)then
ShowMessage(STRING_EQUALS_MSG)
else
ShowMessage(STRING_DIFFER_MSG);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create();
try
sl.LoadFromFile(ExtractFilePath(
ParamStr(0))+EXAMPLE_FILE_NAME);
if(Trim(sl.Text) = STRING_TO_COMPARE)then
ShowMessage(STRING_EQUALS_MSG)
else
ShowMessage(STRING_DIFFER_MSG);
finally
sl.Free();
end;
end;