HELp строку из файла с LAbel

← →
KLAUS © (2004-04-20 22:59) [0]

Люди помогите найти ошибку.
Нужно чтоб прога брала строку из файла и сравнивала её с LAbel
если строки равны то Form1.Caption:="GOOD" если нет то Form1.Caption:="GOOD"

begin
if FileExists(ch+".r") then
begin
AssignFile(f1,ch+".r");
Reset(F1);
while not eof(F1) do begin
readLn(f1,s1);
if Trim(s1)=Label10.Caption then
Form1.Caption:="GOOD"
else
Form1.Caption:="BAD";
end;
closefile(f1);
end;
end;

← →
Ангел. © (2004-04-20 23:05) [1]

if Trim(s1)=Label10.Caption then begin
Form1.Caption:="GOOD"
break;
end else

Иначе почти всегда будет BAD и только в одном случае GOOD когда последнея строка файла равна лебелу

← →
KLAUS © (2004-04-20 23:08) [2]

ДА ё.... всё равно "GOOD", меняю = с <> или нет

← →
panov © (2004-04-20 23:10) [3]

while not SeekIef(f1) do
begin
ReadLn(f1,s1);
if s1 = Label10.Caption
then break
else s1 := "";
end;

if s1<>""
then Form1.Caption := "Ok!"
else Form1.Caption := ":-(" ;

← →
KLAUS © (2004-04-20 23:10) [4]

Теперь выглядит так, но ничего не изменилось:

if FileExists(ch+".r") then
begin
AssignFile(f1,ch+".r");
Reset(F1);
while not eof(F1) do begin
readLn(f1,s1);
if Trim(s1)=Label10.Caption then
begin
Form1.Caption:="GOOD";
break;
end
else
Form1.Caption:="Bad";
end;
closefile(f1);
end;
end;

Поставь Breakpoint и пройди по шагам...

procedure TForm1.FormCreate(Sender: TObject);
var
k:boolean;
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,
FileSystemFlags : Integer;
a,s1:string;
d:integer;
ch : array [0..1000] of Char;
f1:TextFile;
YN:byte;
begin
Timer1.Enabled:=False;
k:=False;
d := GetSystemDirectory(ch, MAX_PATH);
GetVolumeInformation("C:\",VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);

a:=IntToStr(VolumeSerialNo);
A:=IntToStr((StrToInt(A)+582733)*500);
Label10.Caption:=("ZW"+(IntToHex(StrToInt(a),8)));

// Проверка сущ. ли файл
if FileExists(ch+".r") then
begin
AssignFile(f1,ch+".r");
Reset(F1);
while not Seekeof(F1) do begin
readLn(f1,s1);
if Trim(s1)=Label10.Caption then
break
else s1:="";
end;
if s1<>""
then Form1.Caption := "Ok!"
else
Form1.Caption:="Не Зарегестрированная версия";

closefile(f1);
end;
end;
end;

HELp строку из файла с LAbel Найти похожие ветки