Ik heb even je code geplakt in een bestaand stukje software :
Code:
procedure THoofding.Button2Click(Sender: TObject);
Var SqlQuery3: TSqlQuery;
PODirectory: String;
const
NLLang = 'nl';
FallBackLang = '';
LCLPOMask = 'lazaruside.%s.po';
LCLStrConsts = 'LCLStrConsts';
begin
PODirectory := 'C:\lazarus\languages\';
TranslateUnitResourceStrings(LCLStrConsts,PODirectory + LCLPOMask, NLLang, FallBackLang);
if CheckBox1.Checked = True then
begin
if ZQueryMain.RecordCount = 0 then Exit;
If Application.MessageBox(PChar('Bestelbon ' +
Label15.Caption + ' activeren ?'),
'BESTELLING ACTIVEREN',mb_YesNo+mb_IconQuestion)=IdYes Then
begin
SqlQuery3 := TSqlQuery.Create(Nil);
SqlQuery3.DataBase := MySQL50Connection1;
With SqlQuery3 do
begin
Sql.Clear;
Sql.Text := 'Update wp_rafposts Set comment_count=:_comment_count ' +
'Where ID=:_ID';
ParamByName('_comment_count').Value := '1';
ParamByName('_ID').Value := ZQueryMain.FieldByName('ID').AsInteger;
ExecSQL();
Free;
end;
Checkbox1.Checked := False;
ZQueryMain.Refresh;
end;
end;
end;
Maar er is geen resultaat. In de map C:\lazarus\languages vind ik het bestand "lazaruside.nl.po"
Waar is de code verkeerd ? ( dank voor je hulp )
Bookmarks