FreePascal.ru

Всем привет. Пробую читать ("для себя") уроки по геймдизайну в Lazarus. Движок Castle GAme Engine. Вопрос банальный:
Не очень понял из уроков как использовать TCastleWindow, например такой код:

uses SysUtils, CastleVectors,
CastleFilesUtils, CastleWindow, CastleSceneCore, CastleScene;

var ...

wadman писал(а):

maksmkv писал(а):      SL.Delimiter := '|';
      SL.QuoteChar := '"';
      SL.StrictDelimiter := True;
      SL.DelimitedText :=SL.Text;

Вот не было такого в подсказке.

Уже все сделал , СПАСИБО

Придется немного попрограммировать. Подсказка: TStrings.NameValueSeparator, .Names, .Values.


Сделал, но почему -то только 1-я строка вставляется (((


var
SL: TStringList;
Temp: string;
i: Integer;
f: TextFile;
begin
if OpenDialog1.Execute then
begin
SL &#58 ...

По поиску на форуме ответа не нашел (((

Решил использовать 2 ListBox и файл с разделителем. Но опять что-то не идет.
В общем есть файл вида :
......
Имя1 | url1
Имя2 | url2
Имя3 | url3
......

Есть 2 ListBox - 1-й содержит имя 2-й невидим и содержит url

Как прочитать файл с разделителем? На ...

Всем привет.

В каком месте у меня ошибка, если использую ListBox, библиотеку bass.dll, загружаю список станций из txt файла - при выборе 1-й станции тишина, далее 2-у и т.д. все работает. Не работает только запуск с 1-й.

Временное решение в txt файле пропустил 1-у строку и стало норм, но все таки ...

Всем привет. Пытаюсь скомпилировать код:


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
bass;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1&#58 ...

Всем спасибо - тему можно закрывать.

По поводу функции Pos() , не хватает логики как реализовать правильно. Делаем простую БД с хранением только в полях латинских букв, русских при вводе не должно быть (БД паролей для внутреннего пользования). Основная деятельность не программирование, но писать ПО хоть криво-косо , но очень нравится ...

maksmkv , символ 0 это конец строковой константы. Попробуй ''(две одиночные кавычки) ну или nil, но тут сомневаюсь.
Нет не работает (

Добавлено спустя 55 секунд:
DBGrid1KeyPress
Вроде бы с Вами мы про эту фигню уже говорили, нет?

Уже переделал на DBGrid1UTF8KeyPress - все равно не работает ...

Вроде все верное - делаю на подобии Delphi, но такая конструкция тоже не работает.

if DBGrid1.SelectedField.FieldNo=2 then
If IsKeyInInvalidKeySetRu(Key) = true then Key:=#0;

Если отдельно переписать для цифр if not (key in['0'..'9',#8']) then key:=#0; , то работает

Спасибо, что я не так делаю?

Добавил в глобальные переменные массив. Добавил в события на DBGrid


procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: char);
begin
if DBGrid1.SelectedField.FieldNo=2 then
begin
IsKeyInInvalidKeySetRu(Key);
end;


не работает ...

Тогда не очень понятно, что использовать. Если просто массив, тогда UTF8Key in уже не канает (

if not (UTF8Key in ['а'..'я', 'a'..'z', #32, #8]) then конкретно курсор останавливает на ['а

Спасибо, данную инфу взял со стороннего офрума, по поводу '?' в принципе не удивился бы. А вот конструкция

procedure TForm1.DBGrid1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin
if (DBGrid1.SelectedField.FieldNo=2) then
if not (UTF8Key in ['а'..'я ...

Всем привет. Толкового решения не нашел, может быть поделитесь. Суть, при вводе в ячейки DBGrid, должны отбрасываться символы Кириллицы.

Напрямую Lazarus не работает с русскими символами

if not (Key in ['а'..'я', 'a'..'z', #32, #8]) then
Key := #0
Выдает ошибку ...