var s : String;
i : integer;
begin
s := ComboBox2.Text;
Edit1.Text := '???';
end;
function f(a:string):string;
var
b:string;
begin
b:=copy(a,1,pos(' ',a));
delete(a,1,pos(' ',a));
b:=b+a[1]+'.';
delete(a,1,pos(' ',a));
f:=b+a[1]+'.';
end;
Edit1.Text := f(ComboBox2.Text);
function f(a:string):string;
var
b:string;
begin
b:=copy(a,1,pos(' ',a));
delete(a,1,pos(' ',a));
b:=b+a[1]+'.';
delete(a,1,pos(' ',a));
f:=b+a[1]+'.';
end;
Edit1.Text := f(ComboBox2.Text);
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.