Delphi7. Создание класса

[fariou73]

Если есть здесь люди добрые, прошу вашей помощи) Задали нам написать программу на делфи, да не простую, а с использованием класса, который позже будет унаследован. А именно: создать класс, содержащий строку и реализовать поиск по этой строке.

[Stilet]

Так что-ли?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 TS=class
  s:String;
  Function apos(s2:String):Integer;
 end;
{ TS }

function TS.apos(s2: String): Integer;
begin
 Result:=pos(s2,s);
end;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

[fariou73]

не совсем( нужен именно класс, который будет унаследован.

[eoln]

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

нужен именно класс, который будет унаследован.

Его можно унаследовать, равно как и любой другой

uses
  SysUtils;
type
 TS=class
  s:String;
  Function apos(s2:String):Integer;
 end;
{ TS }
 TS2=class(TS)//наследник класса TS
   Function apos2(s2:String):Integer;
 end;

function TS.apos(s2: String): Integer;
begin
 Result:=pos(s2,s);
end;

function TS2.apos2(s2: String): Integer;
var i: integer;
begin
 Result:=0;
 for i := length(s) downto 1 do if s[i]=s2 then begin
   Result:=i;
   break
 end;
end;

var myTS: TS2;
begin
  myTS := TS2.Create;
  myTS.s := '123456787654321';
  writeln(myTS.apos('3'));//поиск в строке
  writeln(myTS.apos2('3'));//поиск в строке с конца
  readln
end.

[fariou73]

огромное спасибо))) все получилось))) первый раз написал ответ толком не разобравшись, а потом когда хотел исправить не мог зайти на форум) Огромное спасибо за помощь.