Почему функция не возвращает результат в переменную типа string?

← →
cruiser © (2008-10-28 21:18) [0]

Подскажите пожалуйста, уважаемы мастера!
Обявлена функция в классе TForm1:
function DelText(Param:String):String;
Далее в Private того же класса переменная MyText : String;
Далее сама функция:

function TForm1.DelText(Param:String):String; begin with TStringList.Create do try Sorted := true; Duplicates := dupIgnore; Delimiter := ","; DelimitedText:= Param; Param:= DelimitedText; finally Free; end; end;

Но при вызове из программы showmessage (DelText(MyText)) , функция возвращает пустое значение ("")? т.е. сообщение получается пустым! Где ошибка?

← →
Германн © (2008-10-28 21:27) [1]

procedure TForm1.DelText(var Param:String);

← →
cruiser © (2008-10-28 21:30) [2]

Спасибо, а с помощью функции значит никак не получится?

← →
{RASkov} © (2008-10-28 21:32) [3]

> [2] cruiser © (28.10.08 21:30)

А где ты в функции результат назначаешь?

← →
Leonid Troyanovsky © (2008-10-28 21:32) [4]

> cruiser © (28.10.08 21:18)

> получается пустым! Где ошибка?

Функция возвращает result.

--
Regards, LVT.

← →
cruiser © (2008-10-28 21:34) [5]

Спасибо! Разобрался - дописал в конец кода функции result:=Param

Спасибо. Так лучше :)

Почему функция не возвращает результат в переменную типа string? Найти похожие ветки