Спасибо! А я думал, какого хрена у меня всякий мусор в резалте вылезает, приходится обнулять). Теперь все встало на свои места.

Немного скажу о ресурсе. Ресурс очень хороший, продолжай писать, уверен, он многим понравится и будет популярен в программерских кругах.

Спасибо!

Автор, ты или идиот, или плохо читаешь документацию.

Значение Result в GetText – не инициализировано (не определено), о чем тебе, к сожалению, не говорит компилятор в силу ошибки оного.

А фактическое поведение – оно фантомно, и может быть изменено в дальнейшем.

Короче, RTFM

If the function exits without assigning a value to Result or the function name, then the function’s return value is
undefined.

function GetText2: integer;
begin
Result := Result + 2;
end;

Вообще-то, Result при входе в процедуру/функцию действительно не определена – как и любая другая локальная переменная. И то, что (причем – только для типа String, хотя, надо думать – для динамических массивов должно быть то же самое) она “случайно” в какой-то (каких-то) версии компилятора оказывается определенной в значение той переменной из вызывающей функции, которой потом и присвоится значение Result – именно “случайность” (читай – особенность работы компилятора). И закладываться на такое поведение и в дальнейшем – я бы не стал.

Собственно – для теста повторите то же самое, но только с Integer’ом, например:


function GetNum: Integer;
begin
Result := Result + 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
n, i: Integer;
begin
n := 10;
for i := 1 to 3 do
Inc(n);
Label1.Caption := IntToStr(n);
n := GetNum();
Label2.Caption := IntToStr(n);
end;


Уверяю Вас – из второго вызова придет “мусор”, а вовсе не 14.