Процедцра без аргументов работает, а с ними - нет.

[Huruffus]

Всем здравствуйте.
Написал процедуру:

procedure CutStr();
begin
SetLength(Unit2.FNListBox, Length(Unit2.FNListBox)-4);
end;

Прописал в основную программу - работает.

Написал точно такую же, только с аргументами:

procedure CutStr(s:string;i:integer);
begin
SetLength(s, Length(s)-i);
end;

в программе прописана так:

CutStr(Unit2.FNListBox,4);

и не работает. Ошибку не выдаёт, но переменную не укорачивает.

Скажите пожалуйста, в чём дело?

[FaTaL]

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

function CutStr(s:string;i:integer):string;
begin
result := SetLength(s, Length(s)-i);
end;

А в программе используйте так:

Ваша переменная := CutStr(Unit2.FNListBox,4);

[phomm]

Советую выучить тему "передача параметров в процедуры/функции/методы" из любого мануала по дельфи/паскалю, наперёд точно пригодится. В частности , ответ на Ваш вопрос касается модификатора передачи параметра var , т.е.

procedure CutStr(var s:string;i:integer);

Насчёт сетленса - сомневаюсь в способе предложенном Fatal ведь сетленс процедура. Но этот способ можно просто переписать так:

function CutStr(s:string;i:integer):string;
begin
SetLength(s, Length(s)-i);
result := s;
end;

[Stilet]

Стесняюсь спросить, а зачем переменную укорачивать?
Кстати я тут свои пять копеек оставлю:

procedure CutStr(var s:string;i:integer);
begin
 s:=copy(s,1,Length(s)-i);
end;

И никакие Сетленцы тут не нужны.

[Serge_Bliznykov]

+1

а ещё есть "волшебная" системная процедура Delete

Delete(s, Length(s)-i, i)

[Huruffus]

Stilet,с помощью листБокса смотрю файлы, находящиеся в папке. Затем считываю строку из лист бокса и вставляю её в Едит.

phomm, FaTaL, Stilet, спасибо

Дабы не плодить темы, спрошу здесь.

в var объявил buf:string[80] (не знаю что это, но похоже на массив).

через buf считываю txt файлы в поле memo:

While not eof(a) do
   begin
     Readln(a,buf)
     Form1.Memo1.Lines.Add(buf); 
   end;

при последовательном прочтении двух и больше коротких файлов содержание предыдущих файлов остаётся в buf. Скажите пожалуйста, как почистить buf, чем он является, и можно ли сделать более простое чтение из файла?

[Stilet]

А-а-а убрать завершающий слэш?
Тогда рекомендую стандартную функу ExcludeTrailingBackslash()

[Huruffus]

причём тут слеш? я ни слова про него не сказал

[FaTaL]

А зачем тебе буфер строк вообще тут? Не проще сразу грузить в Мемо файл через TMemo.LoadFromFile ('Ваш файл'); или TMemo.Lines.LoadFromFile точно не помню.