правильное оформление функций и процедур

[cargo29]

GunSmoker можно пример какой нить? простой а то бывало функций сам много пишешь и нужно пользоваться такмим методом, и не получаеться

[GunSmoker]

Пример можно.

Чего конкретно? Всё подряд писать лениво.

[cargo29]

вот например как осуществить такое?

function test(a:string = 'qwerty'; i:integer = 9; t:string):string;
begin
redult:=a+inttostr(i)+t;
end;

[GunSmoker]

Наводящий вопрос:

function Funcenstein(A: Integer = 3; B: Integer = 3; C: Integer = 3);

...

Funcenstein(3, 3); // <- вызвали вы A + B, B + C или A + C?

Понятно, откуда ограничение? То, что вы хотите в явном виде - невозможно. Потому что получается неоднозначность, как трактовать вызов.

Я привёл варианты альтернатив.

К примеру, вариант с overload-ми - делается один основной вариант функции со всеми параметрами. Можно некоторые параметры сделать умалчиваемыми. Затем, делаются несколько overload вариантов, в которых параметры указаны в альтернативном порядке. Все альтернативные варианты являются dummy-заглушками и просто вызывают основной вариант функции.

Этот метод применим только если есть возможность опознать параметры по типу.

К примеру, для вашего примера:

function test(a:string; i:integer; t: string): string; overload;
begin
  result:=a+inttostr(i)+t;
end;

function test(t: string):string; overload;
begin
  Result := test('qwerty', 9, t);
end; 

function test(a, t: string):string; overload;
begin
  Result := test(a, 9, t);
end;

function test(i: integer; t: string):string; overload;
begin
  Result := test('qwerty', i, t);
end;

Но нельзя:
function test(a: string):string; overload;
т.к. конфликтует с test(t: string) выше

Это лишь один из возможных вариантов. А вообще можно придумать 1000 и одно решение.

[cargo29]

Ага )) спасибо буду разбираться

[Вадим Мошев]

Сообщение от eoln

Функция имеет необязательные параметры, поэтому если передавать нечего, то писать null, null не надо.

begin
  test()
end

Речь идёт о языке Object Pascal, поэтому:
1. Не null, а nil
2. если подпрограмма не имеет параметров, то после неё не надо указывать пустые скобки, то есть:

Объявление

function SomeFunc: SomeType;
begin
// Тут шота делаема, насяльника
end;

Обращение:

var a: SomeType; // Совместимый тип с функцией SomeType
begin
//....
a:=SomeFunc;
//...
end;
//...

[cargo29]

Вадим Мошев я пробовал nil ошибка выскакивает

вот например эта процедура

procedure test(a:integer = 1; b:string = 'test');
begin
 ShowMessage(IntToStr(a)+b);
end;

Попробуйте заменить первый парамтр на nil

[Пепел Феникса]

2. если подпрограмма не имеет параметров, то после неё не надо указывать пустые скобки, то есть:

это по желанию.

1. Не null, а nil

только для объектов и указателей это применимо.

ТС, вам же уже говорили что пропускать можно только с конца.

[eoln]

Сообщение от Вадим Мошев

Речь идёт о языке Object Pascal, поэтому:
1. Не null, а nil
2. если подпрограмма не имеет параметров, то после неё не надо указывать пустые скобки

Вадим, я эти null увидел на скрине, потому и написал. Но и nil писать нельзя. На счёт скобок - ни не надо, а не обязательно. Если написать test(), то сразу видно что функция, а если просто test, то визуально это не заметно. Иногда это надо, иногда нет.

[cargo29]

Эх проще говоря то, что я хотел, не сделать просто.. overload тоже не сильно походит что бы потом каждую функцию расписывать ... вот еще вопрос сразу по функциям,


хотел написать процедуру но она почему то не работает (код писал тут извиняюсь за ошибки если есть)

proocedure test (url:string; http:Tidhttp; ing:Timage);
var
ms:TmemoryStream;
begin
ms:=tmemorystream.create;
http.get(url, ms);
ms.safetofile('pict.jpg');
img.picture.loadfromfile('pict.jpg');
ms.free;
end;

на форме есть эти компоненты и в uses jpeg есть