FreePascal.ru

Так и никто не ответил, или md5 никто не использует?
Воспроизвести такой md5 у меня ещё раз не получилось, но по памяти могу сказать у меня это второй случай.
Может есть баг какой?

TDbf нет SQL

Есть такой код
j := 1;
sd := TSelectDirectoryDialog.Create(Application);
sd.InitialDir := 'd:\base\2013\in\';
if sd.Execute then
path := UTF8ToSys(sd.FileName);
FreeAndNil(sd);

if FindFirst(path + DirectorySeparator + '*.dbf', faAnyFile, searchResult) = 0 then
begin
repeat
Form4 ...

отлично, тогда...
как узнать сколько строк в файле, и пройтись по циклу, по конкретным столбам (не перебирая все)

Нужно прочитать данные из xls для сравнения с db в mysql.
В комплекте с пакетом идет chm, в котором есть описан метод GetCellByIndex
Но, почему-то он отсутствует в пакете.
Скрин, m
История повторяется на windows

Вместе с пакетом идет пример.
CurCell := MyWorkSheet.GetFirstCell();
for i ...

http://wiki.freepascal.org/Dialog_Examples
ничего про модальность MessageBox не написано.
Константы, типа
MB_APPLMODAL = $00000000;
MB_SYSTEMMODAL = $00001000;
MB_TASKMODAL = $00002000;
Не работают.

http://clip2net.com/clip/m62821/1376495 ... p-24kb.png

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public ...

DataSize возвращает тип int, как узнать знаки после запятой?
И где скрывается документация?

Нет, его я убрал. Добавил, заработало. Спасибо.
Тогда ещё вопрос, как узнать параметры этого типа, число знаков, знаков после запятой, и т.п.

Как его использовать в таком контексте?
if MyDbf.Fields[i].DataType = ftDate then
begin
if trim(MyDbf&#46;FieldByName(MyDbf&#46;Fields&#91;i&#93;&#46;FieldName)&#46;AsString) <> '' then
str_data &#58;= FormatDateTime('YYYY-MM-DD hh&#58;mm&#58;ss',
MyDbf&#46;FieldByName(MyDbf&#46 ...

Как узнать тип поля, в таблице версии dBASE 4, используя компонент (TDbf/Dbf)
Узнать тип нужно обязательно.
Имя поля получаю так MyDbf.Fields[i].FieldName