Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз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;
← →
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 когда последнея строка файла равна лебелу
← →
Ангел. © (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", меняю = с <> или нет
← →
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 := ":-(" ;
← →
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;
← →
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 и пройди по шагам...
← →
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;
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.035 c