проблема с ооп

[Igor922]

Здраствуйте,
Нужна помощь по ООП ,в частности по программной реализации методов класса и дем. модулю: не получается правильно реализовать функцию поиска в массиве и удаление элемента из массива по названию(не по индексу)-если не трудно исправьте другие найденные ошибки если они есть.
Сама структура - динамическая очередь упорядоченных массивов.
Заранее большое спасибо.

Привожу кусок проблемного кода(класса) на котором я застрял:

Unit Section; 

interface

uses
  News,SysUtils;

const
  MaxNews = 10;

type
  MyArray = array [1..MaxNews] of TNews;

TSection=class 
  public    
    constructor Create(_SectionName:string;_NewsName:string);
    function AddNews(_News: TNews): boolean;
    function DeleteNews(_NewsName: string): boolean;
    function FindNews(_NewsName: string): string;
    procedure SetSectionName(_SectionName: String);
    function GetSectionName: String;
    procedure SetNextSection(_Section: TSection); 
    function GetNextSection: TSection; 
    function GetMyArray: MyArray;
    function GetCount: integer;
  private      
    NewsArray: MyArray; 
    SectionName: String; 
    NextSection: TSection; 
    Count: Integer; 
end;


implementation

constructor TSection.Create;   
begin
  NextSection := nil;
  Count := 0;
end;

function TSection.AddNews(_News: TNews): boolean;      
var
  i,j: integer;   

begin
  if Count < MaxNews then
  begin
    Inc(Count);  
    if Count = 1 then NewsArray[Count] := _News
    else
      for i:=1 to Count-1 do
        if NewsArray[i].GetTitleName > _News.GetTitleName then
        begin
          for j:=Count downto i do NewsArray[j] := NewsArray[j-1];
          NewsArray[i]:=_News;
          Break;
        end
        else if i = Count-1 Then NewsArray[i+1]:=_News;
    Result := True;
  end
  else Result := False;
end;

function TSection.FindNews(_NewsName: string):string;  //проблема
var
 i:byte;
begin
  for i:=1 to GetCount do
    if NewsArray[i].GetTitleName = _NewsName Then
    begin
      Result :=i;
      Exit;
    end;
  Result := 0;
end;


function TSection.DeleteNews(_NewsName:string): boolean;  // и здесь тоже
var
  i,tmp: Byte;
begin
  Result := False;
  if count <> 0 then
  begin
   tmp := FindNews(_NewsName:string);
    if tmp <> 0 then 
    begin
      for i:=tmp to Count-1 do NewsArray[i] := NewsArray[i+1];
      NewsArray[Count] := nil;
      Dec(Count);    
      Result := True;
    end;
  end;
 end;

procedure TSection.SetSectionName(_SectionName: String);   
begin
  SectionName := _SectionName;
end;

function TSection.GetSectionName: String;   
begin
  Result := SectionName;
end;

procedure TSection.SetNextSection(_Section: TSection);
begin
  NextSection := _Section;
end;

function TSection.GetNextSection: TSection;
begin
  Result := NextSection;
end;

function TSection.GetMyArray: MyArray;
begin
  Result := NewsArray;
end;

function TSection.GetCount: integer;
begin
  Result := Count;
end;

end.

[s-andriano]

Сообщение от Igor922

не получается правильно реализовать функцию поиска в массиве и удаление элемента из массива по названию(не по индексу)

Поиск по упорядоченному массиву разумнее всего вести методом деления пополам (бинарный поиск), а в неупорядоченном - перебором.
Удаление по названию делается в 2 этапа:
- поиск (получаем индекс),
- удаление по индексу (сжимаем массив к началу).

[Igor922]

Проблема в том что мне нужно реализовать удаление по названию элемента,а НЕ по индексу(в этом вся проблема )

[BDA]

Сообщение от Igor922

Проблема в том что мне нужно реализовать удаление по названию элемента,а НЕ по индексу(в этом вся проблема )

Захотел пользователь удалить по имени - вызвал функцию. А как она удаляет, это уже её дело. Пример: прораб говорит, снесите овощную лавку. Приходите на улицу - там 5 домов. Нашли овощную лавку - оказалась 3 домом. Снесли. {Остальные дома продвинули }

[Igor922]

Сообщение от BDA

Захотел пользователь удалить по имени - вызвал функцию. А как она удаляет, это уже её дело. Пример: прораб говорит, снесите овощную лавку. Приходите на улицу - там 5 домов. Нашли овощную лавку - оказалась 3 домом. Снесли. {Остальные дома продвинули }

Как происходит удаление из массива и смещение массива влево я понимаю)
Но у меня не получается правильно реализовать поиск и удаление по названию:

function TSection.FindNews(_NewsName: string):string;  //проблема
var
 i:byte;
begin
  for i:=1 to GetCount do
    if NewsArray[i].GetTitleName = _NewsName Then
    begin
      Result :=i;
      Exit;
    end;
  Result := 0;
end;


function TSection.DeleteNews(_NewsName:string): boolean;  // и здесь тоже
var
  i,tmp: Byte;
begin
  Result := False;
  if count <> 0 then
  begin
   tmp := FindNews(_NewsName:string);
    if tmp <> 0 then 
    begin
      for i:=tmp to Count-1 do NewsArray[i] := NewsArray[i+1];
      NewsArray[Count] := nil;
      Dec(Count);    
      Result := True;
    end;
  end;
 end;

в принципе можно сделать через TStringList ,но как это сделать не совсем понимаю

[Zer0]

function TSection.FindNews(_NewsName: string):string;  
var
 i:byte;
begin
  for i:=1 to GetCount do
    if NewsArray[i].GetTitleName = _NewsName Then
    begin
      Result :=i;
      Exit;
    end;
  Result := 0;
end;

Не замечаете ничего странного?

function TSection.DeleteNews(_NewsName:string): boolean;  
var
  i,tmp: Byte;
begin
  Result := False;
  if count <> 0 then
  begin
   tmp := FindNews(_NewsName:string); //<-- зачем это?
    if tmp <> 0 then 
    begin
      for i:=tmp to Count-1 do NewsArray[i] := NewsArray[i+1];
      NewsArray[Count] := nil;
      Dec(Count);    
      Result := True;
    end;
  end;
 end;