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

Как сделать, что бы процедура передавала параметры?   Найти похожие ветки 

← →
i:word   (2005-12-06 19:59) [0]

Есть функция

function CheckAndClear(s:string):string;   //подпрограмма удаляет первые и последние пробелы в строке
var i:word;                                // "   123  abc   " -->"123  abc"
begin
 while pos(" ",s)=1 do delete(s,1,1);
 i:=length(s);
   while  ((s[i]=" ") AND (i>1)) do
   begin
    i:=i-1;
   end;
 SetLength(s,i);
 result:=s;
end;


Что бы вызвать функцию CheckAndClear используется
s:=CheckAndClear(s);

Как сделать, что бы эта функция вызывалась так:
CheckAndClear(s)

Т.Е. как вызывается процедура типа delete  без использования глобальных переменных?

---

← →
Хинт ©   (2005-12-06 20:40) [1]

procedure CheckAndClear(var s:string);

---

← →
i:word   (2005-12-06 20:46) [2]

>procedure CheckAndClear(var s:string);

Это ясно, но как от процедуры получить обратно изменённое S ?

Вот процедура delete(s,1,1) изменяет s, но s - не глобальная переменная, как это можно реализовать?

---

← →
Virgo_Style ©   (2005-12-06 20:53) [3]

i:word   (06.12.05 20:46) [2]

[1] именно это и реализует

---

← →
i:word   (2005-12-06 21:02) [4]

А, понял! Я просто слово VAR не заметил.

Большое всем спасибо!

---

← →
Хинт ©   (2005-12-06 21:19) [5]

Ведь специально жирным выделил =)
А вообще надо учить уснову - язык Pascal. Передача параметров по ссылке, по значению и т.д. и т.п.

---

← →
begin...end ©   (2005-12-06 21:43) [6]

> i:word   (06.12.05 19:59)
> подпрограмма удаляет первые и последние пробелы в строке

Типа, Trim уже не рулит?

---

← →
i:word   (2005-12-06 22:18) [7]

>Типа, Trim уже не рулит?

Точно, так проще! Про Trim я забыл!

---

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

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



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