| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

cruiser ©   (2008-10-28 21:18:00) 

Подскажите пожалуйста, уважаемы мастера!
Обявлена функция в классе 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)) , функция возвращает пустое значение ('')? т.е. сообщение получается пустым! Где ошибка?

---

cruiser   (2008-10-28 21:54:00) [1]

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

---

{RASkov}   (2008-10-28 21:36:00) [2]

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

:) Result := DelimitedText;

---

cruiser   (2008-10-28 21:34:00) [3]

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

---

{RASkov}   (2008-10-28 21:32:00) [4]

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

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

---

Leonid Troyanovsky   (2008-10-28 21:32:00) [5]

> cruiser ©   (28.10.08 21:18)  

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

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

--
Regards, LVT.

---

cruiser   (2008-10-28 21:30:00) [6]

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

---

Германн   (2008-10-28 21:27:00) [7]

procedure TForm1.DelText(var Param:String);

---

Наверх