1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Работа функции

Тема в разделе "Delphi - программирование", создана пользователем Patsan, 17 фев 2008.

  1. Patsan

    Patsan Гость

    Репутация:
    0
    Помогите пожалуйста решить проблемку.

    Имеется функция...
    Нужно чтоб она действовала как процедура, то есть проводила операции над передающимся ей параметром без возвращения значения, а в Result возвращалось что-то другое.
    По типу такого:

    Код:
    function lc(s:string):String; 
    begin 
    s := lowercase(s); 
    Result := s[1]; 
    end; 
    
    procedure some_proc(); 
    var 
    word:String; 
    begin 
    word := 'STRING'; 
    lc(word); 
    showmessage(word+': '+lc(word)); 
    end;
    И эта программка должна вывести сообщение вида "string: s".

    Я думаю, тут надо использовать указатели, но я в них полный ноль, а хорошей инфы не нашел (очень буду благодарен, если кто-нибудь предоставит такую). Вообще кто его знает, как делать, собственно, поэтому я сюда и обращаюсь =).

    П.С.: Код смысла никакого не несет, это я импровизировал =) Но ситуация именно такая.
    Заранее благодарен за помощь.
     
  2. zubr

    zubr Гость

    Репутация:
    0
    Код:
    function lc(var s:string):String;
    И будет тебе счастье.
     
  3. Patsan

    Patsan Гость

    Репутация:
    0
    zubr
    Спасибо! :) Я то думал :)
     
Загрузка...

Поделиться этой страницей