Скачать: CL | DM;

Почему функция не возвращает результат в переменную типа 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

---

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

> [5] cruiser ©   (28.10.08 21:34)

:) Result := DelimitedText;

---

← →
cruiser ©   (2008-10-28 21:54) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c