Funkcia Copy - Pascal

Chceš to rychle nebo pomalu?
Rychle: jestli tím "copy" myslíš kopírování souboru, tak to je už hotové v nápovědě a určitě aspoň milionkrát na nejrůznějších stránkách na internetu
Pomalu: Programování není těžký se naučit, jen se doporučuje začít od jednoduchých zadání a podle toho, jak to postupně budeš zvládat jít do složitějších...
PS: podal jsi velmi málo a navíc zmatených informací, to se v programování nenosí...

ospravedlnujem sa.. ide o funkciu, ktora pracuje so stringami...takto vyzera copy(retazec,od ktoreho znaku,kolko znakov), teda napr. copy(ret,1,2), vysledok je string, priradim ho takto napr: ret2:=copy(ret,1,2)

priklad.
readln(ret);
-- zadam vetu napr. auto

ret1:=copy(ret,1,2)

vznikne au

Stačí sa pozrieť na knižnicu System...
Takto vyzerá funkcia _Copy originál v Unit-e System:

var
  Len, I: Integer;
begin
  Len := Byte(S[0]);
  if Len = 0 then
    Byte(Result[0]) := 0
  else
  begin
    if Index <= 0 then Index := 1
    else if Index > Len then Count := 0;
    Len := Len - Index + 1;
    if Count < 0 then Count := 0
    else if Count > Len then Count := Len;
    Byte(Result[0]) := Count;
    for I := 1 to Count do
      Result[I] := S[Index + I - 1];
  end;
end;

Neviem si predstaviť ako vymyslieť svoju vlastnú funkciu inak...

Vymyslet se dá spoustu věcí, co třeba pointerová matematika? Neboli žádný cyklus, jen přiřazení odkud se bude brát přímo ze zdroje?

function copy(s : string; odkud, delka : integer) : string;
var ls : byte absolute s;
    pvystup: ^string;
begin
  if odkud>ls then s:='';
  if delka>ls-odkud+1 then delka:=ls-odkud+1;
  pvystup:=ptr(seg(s),ofs(s)+odkud-1);
  pvystup^[0]:=chr(delka);
  copy:=pvystup^;
end;

Ještě by šla použít direktiva ASM a napsat to v assembleru

Tojo, to je ale už vyšší dívčí

ne vyssi, ale nizsi. A najefektivnejsi. Je to totiz na jeden riadok :D
rep movsb
samozrejme predtym treba nastavit ecx, esi, edi a selektory (ds, es)

P.S> slusne kniznice vyssich jazykov maju toto urobene pomocou rep movsd a len zvysne 0-3 bajty pomocou movsb, je to tak najefektivnejsie