27 lines
729 B
Plaintext
27 lines
729 B
Plaintext
unit BasicStrings;
|
|
|
|
interface
|
|
function Mid(Txt: string; Index: integer; Count: integer): string;
|
|
function Left(Txt: string; Count: integer): string;
|
|
function Right(Txt: string; Count: integer): string;
|
|
|
|
implementation
|
|
function Mid(Txt: string; Index: integer; Count: integer): string;
|
|
begin
|
|
Mid := Copy(Txt, Index, Count);
|
|
end;
|
|
|
|
function Left(Txt: string; Count: integer): string;
|
|
begin
|
|
Left := Copy(Txt, 1, Count);
|
|
end;
|
|
|
|
function Right(Txt: string; Count: integer): string;
|
|
begin
|
|
Right := Copy(Txt, Length(Txt)-Count+1, Length(Txt)-(Length(Txt)-Count));
|
|
end;
|
|
|
|
begin
|
|
WriteLn('þ Loading Unit: BasicStrings - geschrieben von RoboCop of nOOb');
|
|
end.
|