Сдаю практику, ничего не смог найти, препод дает нам по си шарп =), а нам дают лазарус в техе, ибо на си шарп нет препода, решили дать лазарус, так как практика у нас по базам данных, учителю по БД пофиг на то, что мы не знаем как связать с лазарус, ей легче сделать так, чтобы мы выучили си шарп и дает нам лекции по си шарп, хотя она права ибо мы должны были его учить, как итог долго рылся в интернете и нашел твой ролик, спасибо)
Бля, мужик Крепкого тебе здоровья Сейчас время 4:41, через полтора часа ехать в техникум и сдавать всю эту тему Часа два я только гайды искал и прочую инфу Наткнулся на твой видос и боже, как же ты помог Пусть я делал базы в IBExpert, но я понял как это дело сделать под себя Огромное тебе спасибо! Счастья тебе!
Ребят, если у кого-то процедура руссификации все равно не работает при запуске программы, то вот решение: procedure TForm1.dbqAfterOpen(DataSet: TDataSet); var i:Integer; begin for i:=0 to dbq.Fields.Count-1 do if dbq.Fields[i] is TStringField then (dbq.Fields[i] as TStringField).Transliterate := True; end;
