Класс для работы со строкой, help Опции

[Postal_Dude]

помогите пожалусто :
Опишите объектный тип Objstring, который используется для хранения строкового значения и содержит методы: проверки - является ли строка пустой, усечения строки до заданной длины и разбиения ее на 2 подстроки.

[volvo]

Только описАть? Ну, смотри:

Type
  ObjString = Object
    Constructor Create(const s: string);

    Function isEmpty: Boolean;
    Function Truncate(Len: Byte): String;
    Procedure Split(Var s1, s2: String; Where: Byte);
  Private
    st: String;
  End;

Реализация - за тобой, договорились?

[Postal_Dude]

м...а можете всеже показать как написать эти функции?...ато я уже запарился. пожалуста...

[volvo]

Ну, если тебя устраивает размер строки, хранящейся в ObjString (до 256 символов), то все просто:

constructor TObjString.Init(const s: string);
begin
  st := s
end;
function ObjString.isEmpty: boolean;
begin
  isEmpty := (st = '')
end;
function ObjString.Truncate(Len: byte): string;
begin
  { значение хранящееся в объекте не изменяется!!! }
  Truncate := copy(st, 1, Len);
end;
procedure ObjString.Split(var s1, s2: string; where: byte);
begin
  { значение хранящееся в объекте не изменяется!!! }
  s1 := copy(st, 1, where);
  s2 := copy(st, where+1, 255);
end;

Если нужна возможность хранить более длинную строку, работай с PChar, а не String...

[Postal_Dude]

устраивает. спасибо!