Обращение к последнему элементу динамического массива

[kotompazb]

В общем не знаю, где лучше спросить.
Length(arr)-1 или все-таки High(arr)?
Как будет эффективнее (правильнее)?

[WAYFARER]

Lenght - Возвращает число элементов в массиве,
High - Возвращает самое высокое значение
Правильнее использовать High, наверное, хотя Length(arr)-1 вернет то же самое.

[resident]

Как будет эффективнее (правильнее)?

IMHO, компилятор их уравняет к одним инструкциям.
А по сему, стремясь к однотипному коду, использую только Length:
Для массивов pred(Length(my_array))
Для классов pred(my_class.items.count)

p.s. Джулиан Бакнел советует начинать массивы с нуля. Там меньше вычисления адреса (т.к. нет смещения) и для циклов возможна оптимизация.

[Mikhail]

В общем не знаю, где лучше спросить.
Length(arr) или все-таки High(arr)?
Как будет эффективнее (правильнее)?

High лучше, он вернет индекс последнего элемента при любой индексации.
Уже рекомендовали, повторюсь, лучше начинать индексацию с нуля, т.к. динамические и открытые массивы всегда начинаются с нуля, чтобы избежать путаницы.

[kotompazb]

В общем не знаю, где лучше спросить.
Length(arr) или все-таки High(arr)?
Как будет эффективнее (правильнее)?

Уже рекомендовали, повторюсь, лучше начинать индексацию с нуля

Не сразу понял. Извиняюсь, конечно же хотел написать:
Length(arr)-1.
Щас поправлю.

[resident]

-1

Так вместо единицы использую функцию Pred.
http://lazarus-ccr.sourceforge.net/docs ... /pred.html
Получается третий вариант

[kotompazb]

Так вместо единицы использую функцию Pred.
http://lazarus-ccr.sourceforge.net/docs ... /pred.html
Получается третий вариант

Ага. Я в курсе насчет Pred.

[gvido]

Народ, не совсем в тему, но где-то рядом.

Код: Выделить всё

  Type
    TListFiles = array of string;
  type
    TTask = class(TThread)  {вершина структуры задачи}
      Private
       FName:             String;   
       FListOfFiles:      TListFiles;
******
end;


Массив FListOfFiles заполняется без проблем с предварительным увеличением размера массива.
Но с**а не могу его обнулить.

Код: Выделить всё

procedure TTask.ListOfFilesCLR;
begin
  if Length(FListOfFiles)>0 then
  SetLength(FlistOfFiles,0);
end;

"Проект тттт вызвал класс исключения 'External: SIGSEGV.'

по адресу 403С20

Вне класса динамический массив обнуляется без проблем.

Внутри класс поле - динамический массив обнуляется как-то иначе?

[Дож]

"Проект тттт вызвал класс исключения 'External: SIGSEGV.'

Нужен полный код использования класса TTask, от создания до уничтожения.

[zub]

>>Массив FListOfFiles заполняется без проблем с предварительным увеличением размера массива
Скорее всего заполняется какраз с проблемами)) или в промежутке между заполнением - очищением портится

[gvido]

Нужен полный код использования класса TTask, от создания до уничтожения.

Это собственно пока только заготовка.

Код: Выделить всё

  Type
    TListFiles = array of string;

  type
    TTask = class(TThread)  {вершина структуры задачи}
      Private
       FName:             String;    {Текстовая метка. Например - "Задача 1"}
       FFileMask:         String;    {Маска поиска файлов в основной папке задачи. Например: *a*.arj}
       FFoldPath:         String;    {Папка с которой нашинается обработка задачи}
       FListOfFiles:      TListFiles;
       FFoldError:        String;    {Папка с отбракованными файлами текущей задачи}
      Protected

      Public
       Constructor Create(aName: String; CreateSuspended: boolean = True);
       procedure DoScanDir;
       Procedure ListOfFilesCLR;
//*
       Property Name: String Read FName Write FName;
       Property FileMask: String Read FFilemask Write FFileMask;
       Property Foldpath: String Read FFoldpath Write FFoldPath;
       Property ListOfFiles: TlistFiles Read FListOfFiles;

    end;

    Function StrToTimeType(Value:String):TTimeType;
    Function TimeTypeToStr(Value:TTimeType):String;
    Function FullFilePath(const fDir,fFile:string): String;


implementation   
Constructor TTask.Create(aName: String; CreateSuspended: boolean = True);
begin
     FName:=aName;
     FFoldPath:=     '';
     FFoldError:=    '';
     FFileMask:=     '';
     FreeOnTerminate := True;
     inherited Create(CreateSuspended);
end;
procedure TTask.DoScanDir;
Var
Info : TSearchRec;
begin
       If DirectoryExistsUTF8(FFoldPath) and (FFileMask<>'')  then
          begin
               If FindFirstUTF8(FFoldPath+'\'+FFileMask,faAnyFile and not faDirectory,Info)=0 then
                   try
                      repeat
                            SetLength(FlistOfFiles,Length(FlistOfFiles)+1);
                            FListOfFiles[Pred(Length(FlistOfFiles))]:=info.Name;
                      until (FindNextUTF8(Info)<>0);
                   finally
                   FindCloseUTF8(Info);
               end;
          end;
end;
procedure TTask.ListOfFilesCLR;
begin
  if Length(FListOfFiles)>0 then
Finalize(FListOfFiles,Length(FListOfFiles));
end;


Использоваение:

Код: Выделить всё


unit frmMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, RTTIGrids, RTTICtrls, Forms, Controls, Graphics,
  Dialogs, Grids, ComCtrls, Menus, ExtCtrls, StdCtrls, ValEdit, ComboEx, inicol,
  inifiles,LCLType, gvsclass;

type

  { TfrmMane }

  TfrmMane = class(TForm)
    ListBox1: TListBox;
    ToolButton2: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1KeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmMane: TfrmMane;
  Task: TTask;

implementation

{$R *.lfm}

{ TfrmMane }

procedure TfrmMane.FormCreate(Sender: TObject);
var
  i: integer;
begin
     Task:=TTask.Create('Входящие 311-П',true);
     Task.FileMask:='mz*_30.821';
     task.Foldpath:='U:\ЦБ\ptkpsd\post\post';
     Task.DoScanDir{(task.Foldpath,Task.FileMask)};
     for i:=0 to pred(length(task.ListOfFiles)) do
        begin
           listbox1.Items.Append(Task.ListOfFiles[i]);
        end;
end;


procedure TfrmMane.ListBox1KeyPress(Sender: TObject; var Key: char);
var
  i:integer;
begin
  if key=Chr(vk_delete) then listbox1.Items.Clear;
  if key='a' then
     begin
      if length(task.ListOfFiles)>0 then
       begin
         for i:=0 to pred(length(task.ListOfFiles)) do
           listbox1.Items.Append(Task.ListOfFiles[i]);
       end;
     end;
  if key='c' then task.ListOfFilesCLR;
end;

end. 

>>Массив FListOfFiles заполняется без проблем с предварительным увеличением размера массиваСкорее всего заполняется какраз с проблемами)) или в промежутке между заполнением - очищением портится

он нормально заполняется и выводится содержимое в listbox.

хотел подглянуть как чистится TStringList, так хрен подглядишь.

Пробовал использовать

Код: Выделить всё

Finalize(FListOfFiles,length(FListOfFiles));

внутри класса - тоже ошибка.

[zub]

gvido
Цените пожалуйста время форумчан. Давайте не обрывки, а минимальный компилируемый пример с ошибкой. Заодно, пока будешь делать пример и ошибку выловишь))
В приведенных обрывках имхо проблем нет.

[gvido]

gvidoЦените пожалуйста время форумчан. Давайте не обрывки, а минимальный компилируемый пример с ошибкой. Заодно, пока будешь делать пример и ошибку выловишь))В приведенных обрывках имхо проблем нет.

Сорьки, забыл убрать, не используемые в данном примере поля. Исправил.
Код должен собраться.

только что собрал все эту хрень в делфи 10 (сцуко!!!!) все отработало.

Все, вопрос, закрыт Finalize(array); без доп параметра зачистил массив.

[Mikhail]

gvidoЦените пожалуйста время форумчан. Давайте не обрывки, а минимальный компилируемый пример с ошибкой. Заодно, пока будешь делать пример и ошибку выловишь))В приведенных обрывках имхо проблем нет.

Сорьки, забыл убрать, не используемые в данном примере поля. Исправил.
Код должен собраться.

только что собрал все эту хрень в делфи 10 (сцуко!!!!) все отработало.
вот урезанный проект:
https://yadi.sk/d/Q4-6-8oCkVvnt
пути и маску файлов в основной форме нужно сменить.

Вы хотите сканировать каталог в отдельном потоке?

[gvido]

Да, планирую сделать задачку, по обработке разных типов файлов. Каждая задача в отдельном потоке со своим периодом ожидания и своим набором операций.

Чувствовал, что, что кручусь где-то рядом с кодом, но никак не мог нащупать.

До сихпор не понятно - почему не работает внутри класса array:=nil или setlength(array,Length(array))!?!??