FreePascal.ru

Годы ожиданий. Свершилось! Мои поздравления!

С праздником всех!

uses comobj;

Ищи по строкам, перебирая Memo9.Lines, как массив строк, а не во всем тексте (Memo9.Lines.Text)


for i:= 0 to Memo9.Lines.Count - 1 do
if pos(Edit1&#46;Text , Memo9&#46;Lines&#91;i&#93;)<>0 then break;


В результате, i содержит первую строку в которой обнаружилось вхождение подстроки ...

А как Memo9, в котором содержимое файла, связано с SynMemo1, в котором производится поиск вхождения строки?

Для данного кода, что бы в Memo8 попадал полный список файлов, достаточно в SynMemo1 внести искомую строку. Что бы не попадали, вместо SynMemo1 использовать Memo9, либо обновлять SynMemo1 ...

у меня на Lazarus-0.9.31-28853-fpc-2.4.3-20110101-win32.exe из
http://www.hu.freepascal.org/lazarus/
все нормально ругается на ";" под WinXP 32bit

Может какие дополнительные условия для воспроизведения бага есть?

LazReport + PDFCreator не подойдет?

В папке с Indy лежит 2 папки: fpc и lazarus. Указывать стоит путь для fpc папки.

1.


2.

Такая же ошибка была в виндах.

лечится прописыванием пути к каталогу исходников fpc для Indy, в параметрах компилятора для пакета.

Что-нибудь типа этого слепить можно:

function GetPosMemo(const Memo&#58;TMemo)&#58;integer;
var
s&#58;string;
begin
s&#58;=Copy(Memo&#46;Lines&#46;Text,1,Memo&#46;SelStart);
Result&#58;=1;
while pos(#13#10,s)<>0 do
begin
delete(s,pos(#13#10,s),2);
inc(Result);
end;
end;


Правда, если ...

Можно как-то вот так, через OnMouseMove у TrayIcon1.

На сколько я помню, для того, что бы не было возможности использовать SQL-инъекции,используются запросы с параметрами.

Например:

function TMainForm&#46;GetFromBase(s&#58;string)&#58; string;
begin
OQ&#46;Close;
OQ&#46;SQL&#46;Clear;
s&#58;='select x_field from table1 where field_id= &#58;field ...

procedure TForm1&#46;Button2Click(Sender&#58; TObject);
begin
MemDataset1&#46;Filtered&#58;=false;
MemDataset1&#46;Filter&#58;='LANGUAGE = "F*"';//фильтруем в датасете только те строки, где в поле LANGUAGE значение начинается с F
MemDataset1&#46;Filtered&#58;=true;

while not Memdataset1&#46 ...

Так ведь, с номером 1.0.0 хотелось бы видеть полностью стабильную версию, готовую для дальнейших доработок в связи с новыми требованиями. ИМХО, 1.0.0 - это, должен быть, стабильный релиз, а не просто порядковый номер версии на пути устранения багов.

Неужели, свершится это чудо наконец, - Lazarus 1.0.0 ?