🚀 go-pugleaf

BP7.

Oto przykład funkcji zwracającej string:

Function BezSpacji(const S:String):String;
var
   X: String;
   i, K: byte;

begin
   K := 0;
   For i := 1 to Length(S) do
   begin
     if S[i] <> ' ' then
     begin
       Inc(K);
       X[K] := S[i];
     end;
   end;

   Byte(X[0]) := K;

   BezSpacji := X;   { <---- }
end;

albo tak:

Function BezSpacji(S:String):String;
var
   i, K: byte;

begin
   K := 0;
   For i := 1 to Length(S) do
   begin
     if S[i] <> ' ' then
     begin
       Inc(K);
       S[K] := S[i];
     end;
   end;

   Byte(S[0]) := K;

   BezSpacji := S; { <---- }
end;


W obu przypadkach wynik tworzony jest w zmiennej pośredniej, po czym 
zmienna ta kopiowana jest do wyniku.

A czy da się operować BEZPOŚREDNIO NA WYNIKU? - w Delphi służy do tego 
zmienna Result.

Może nie wszyscy wiedzą, że w BP7 zmienna Result też jest, choć może w 
trochę innej formie i trochę inaczej się jej używa:


Function BezSpacji(const S:String):String;
var
   i, K: byte;
   pS: ^String;
begin
   asm
     LES DI,@Result
     MOV pS.WORD[0],DI
     MOV pS.WORD[2],ES
   end;

   { Teraz w pS jest wskazanie na wynik }

   K := 0;
   For i := 1 to Length(S) do
   begin
     if S[i] <> ' ' then
     begin
       Inc(K);
       pS^[K] := S[i];
     end;
   end;

   Byte(pS^[0]) := K;

end;

Oszczędzamy 256 bajtów na stosie i czas kopiowania stringa.