[zzz0001]

function getmail(st:string) : string;

var
numst : integer;
numbegin : integer;
numend : integer;
getmails : string;
getmailsn : integer;


begin

if Pos('@',st) > 0 then
begin

numst := Pos('@',st);

while st[numst] <> ' ' do
begin
dec(numst);
end;

numbegin := numst;

numst := Pos('@',st);

while st[numst] <> ' ' do
begin
inc(numst);
end;

numend := numst;
getmailsn := 0;



for numst := numbegin to numend do
begin
showmessage(inttostr(numst));
getmails[getmailsn] := st[numst];
inc(getmailsn);
end;


getmail := getmails;


end;


****
Вылетает на getmails[getmailsn] := st[numst];

[zip000]

Код:

getmailsn := 1;
SetLength(getmails, numend - numbegin);
for numst := numbegin to numend do
...................

Локальные строковые переменные надо явно инициализировать перед использованием! И нумерация символов в строке начинается с 1. И не проще ли сделать так

Код:

getmails := getmails + st[numst];

Тогда не надо будет вызывать SetLength(getmails, numend - numbegin).