Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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;


 
panov ©   (2004-04-20 23:12) [5]

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


 
KLAUS ©   (2004-04-20 23:22) [6]

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;



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
14-1081961623
Fay
2004-04-14 20:53
2004.04.11
Что случилось с орешником?


3-1081857009
Nikolai_S
2004-04-13 15:50
2004.04.11
Как создать временную таблицу и вставить в нее записи?


1-1079963769
Layner
2004-03-22 16:56
2004.04.11
Как после инсталяции сервиса, сразу же запустить его?


14-1079115770
Замороченный
2004-03-12 21:22
2004.04.11
Объясните последовательность установки C# Builder


3-1078502443
Александр Крючков
2004-03-05 19:00
2004.04.11
Работа с блоб-полями через TClientDataSet