begin
if CellRow = 0 then
begin
- BgColor:='Silver';
+ BgColor := 'Silver';
Exit;
end;
if CellRow mod 2 = 0 then
- BgColor:='snow';
+ BgColor := 'snow';
case CellColumn of
0:
CellData := Format('<input name=check%d type=checkbox>', [CellRow]);
ReplaceText := ReplaceText + footerLink([i, i, x]);
end;
x := index.Tag = -1;
- s:='\82³\82¢\82²';
+ s := '\82³\82¢\82²';
ReplaceText := ReplaceText + footerLink([-1, s, x]);
end;
end;
var
s, t: string;
begin
- if data[1].VType = vtInteger then
- t:=data[1].VInteger.toString
+ if Data[1].VType = vtInteger then
+ t := Data[1].VInteger.toString
else
- t:=data[1].VString^;
+ t := Data[1].VString^;
if Data[2].VBoolean = true then
s := ' active'
else
s := '';
result := Format
('<li class="page-item%s"><a class=page-link href="%s?db=%d&num=%d">%s</a></li>',
- [s, Request.ScriptName + PString(Self.Tag)^, FDTable1.FieldByName('dbnum')
+ [s, Request.ScriptName + tagstr, FDTable1.FieldByName('dbnum')
.AsInteger, Data[0].VInteger, t]);
end;
else if TagString = 'uri' then
ReplaceText := Request.ScriptName
else if TagString = 'request' then
- begin
- FDTable1.Close;
with FDTable4 do
begin
First;
ReplaceText := '<table border=1 align=center>' + ReplaceText +
'</table>';
end;
- FDTable1.Open;
- FDTable1.Refresh;
- end;
end;
function TWebModule1.mente: Boolean;
if TagString = 'uri' then
ReplaceText := Request.ScriptName
else if TagString = 'count' then
- ReplaceText := FDTable2.RecordCount.ToString
+ ReplaceText := FDTable2.RecordCount.toString
else if TagString = 'database' then
ReplaceText := FDTable1.FieldByName('database').AsString
else if TagString = 'date' then
pages(FDTable2.RecordCount, i);
index.Tag := i;
tagstr := '/admin';
- Self.Tag := Integer(@tagstr);
admin.header.text := adhead.Content;
admin.footer.Clear;
admin.footer.Add
pages(FDTable2.RecordCount, i);
index.Tag := i;
tagstr := '/index';
- Self.Tag := Integer(@tagstr);
Response.Content := index.Content;
end;
if s = 'master' then
Response.SendRedirect(Request.ScriptName + '/master')
else
- Response.SendRedirect(Request.ScriptName + '/admin?db=' + i.ToString);
+ Response.SendRedirect(Request.ScriptName + '/admin?db=' + i.toString);
end
else if VarIsNull(v) = false then
begin
if Request.MethodType = mtPost then
begin
s := Request.ContentFields.Values['delete'];
+ FDTable4.First;
with FDTable4 do
if s = 'all' then
while not((Bof = true) and (Eof = true)) do
Delete
else
- begin
- First;
while Eof = false do
begin
i := FieldByName('dbname').AsInteger;
else
Delete;
end;
- end;
end;
FDTable4.First;
Response.ContentType := 'text/html;charset=utf-8';
setLastArticle;
number := FDTable2.FieldByName('number').AsInteger + 1;
FDTable2.AppendRecord([i, number, title, na, temp, raw, Now, pass]);
- Response.SendRedirect(Request.ScriptName + '/index?db=' + i.ToString +
+ Response.SendRedirect(Request.ScriptName + '/index?db=' + i.toString +
'#article');
end;
Exit;
FDTable1.AppendRecord([0, 'info']);
FDTable1.AppendRecord([1, 'master']);
for i := 1 to 10 do
- FDTable1.AppendRecord([i + 1, '\8cf\8e¦\94Â' + i.ToString]);
+ FDTable1.AppendRecord([i + 1, '\8cf\8e¦\94Â' + i.toString]);
end;
if (FDTable3.Bof = true) and (FDTable3.Eof = true) then
begin
<Operation>1</Operation>
</Platform>
</DeployClass>
- <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+ <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+ <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
- <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>