В чем проблема с TSrings ?

[Kronos913]

Вот есть код

  Procedure spets;
  var
    s1, s2:string[34];
    i:word;
    j:byte;

  begin
      result:=false;
      s1:='';

      j:=length(edit9.Text);
      for i:=1 to j do begin
       s1:=s1+UpCase(edit9.Text[i]);
      end;

      memo2.Lines.Clear;
      DirSearch(memo1.Lines[ind], memo2.Lines);

      For i:=0 to memo2.Lines.Count-1 do begin
       s2:=rasr(memo2.Lines[i], j+3);
       If (s2=s1+'.JPG') or (s2=s1+'.MP4') then begin
        result:=true;

        exit;
       end;
      end;

Код работает

НО! Если заменить Memo2.Lines на TStrings, программа в процессе выполнения начинает выдавать ошибку

Создать и удалить переменную - создавал перед и удалял после. Не помогает

[Kronos913]

Чтобы result не сбивало с толку - это процедура внутри функции

[evg_m]

1. перед использованием ОБЪЕКТЫ надо создавать и СОХРАНЯТЬ полученный объект в переменной.
2. TStrings абстрактный класс. и создавать надо его НАСЛЕДНИКА ( как правило TStringList).

s:=TStringList.Create;

[Kronos913]

SL.Create я прописывал. Как и SL.Free

К слову, в другой части программы у меня есть глобальная переменная TStrings;
И с ней все нормально. Загрузил туда аналогичный скан папки - и работаю с ним

А тут возникают проблемы

[evg_m]

SL.Create я прописывал. Как и SL.Free

а надо

sl:=TStringList.Create;

в другой части программы у меня есть глобальная переменная TStrings;

и где-то есть код ее инициализации.

??? :=Memo....Lines;

[BDA]

Создание объектов вроде обсудили. А точно ли нужен UpCase с циклом?

  begin
      result := false;
      s1 := AnsiUpperCase(edit9.Text);

[Kronos913]

Супер! Спасибо
Не знал, что можно в одну процедуру это сделать

[northener]

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

Создание объектов вроде обсудили

Сумлеваюсь я однако, что Kronos913 понял все свои ошибки в этом плане. Экстраполируя до полного абсурда ТС может дойти до прямого использования класса TObject. Он ведь тоже передается и очень часто как параметр функции/процедуры.

[Kronos913]

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

Сумлеваюсь я однако, что Kronos913 понял все свои ошибки в этом плане. Экстраполируя до полного абсурда ТС может дойти до прямого использования класса TObject. Он ведь тоже передается и очень часто как параметр функции/процедуры.

В данном случае, если честно, я не совсем понял разницу TStrings и TStringList...

Нас в универе языкам не учили... Так что в плане языка я самоучка

[evg_m]

В данном случае, если честно, я не совсем понял разницу TStrings и TStringList...

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

их использование приведет к EAbstarctError

TStringList
все ранее намеченные функции (в TStrings) получили реальное воплощение override
и теперь их можно смело использовать.

Так что в плане языка я самоучка

читать про виртуальные, абстрактные методы