Курсовая работа: Разработка программы на языке Borland Object Pascal (Ide Borland Delphi)
begin
51
iKol:= 0;
52
i:= pos('goto ', sFile);
53
while i<>0 do
54
begin
55
delete(sFile, 1, i+4);
56
i:= pos(';', sFile);
57
j:= pos(#13, sFile);
58
if ((j<>0)and(j<i))or(i=0) then
59
begin
60
lbRezultat.Caption:= 'Ошибка: Отсутствует ;';
61
lbRezultat.Font.Color:= clRed;
62
Exit;
63
end;
64
sLabelName:= copy(sFile, 1, i-1);
65
if not (sLabelName[1] in ['A'..'Z', 'a'..'z'])then
66
Begin
67
lbRezultat.Caption:= 'Ошибка: Неверное имя метки '+ sLabelName;
68
lbRezultat.Font.Color:= clRed;
69
Exit;
70
end;
71
for i:= 2 to length(sLabelName) do
72
if not(sLabelName[i] in ['0'..'9', 'A'..'Z', 'a'..'z']) then
73
begin
74
lbRezultat.Caption:= 'Ошибка: Неверное имя метки '+ sLabelName;
75
lbRezultat.Font.Color:= clRed;
76
Exit;
77
end;
78
i:= pos(sLabelName+':' ,sFile);
79