Последний элемент цикла for

[Kronos913]

Вопрос такой

Края цикла for заданы сложными формулами
Вопрос: можно ли изнутри цикла знать номер последнего элемента, так чтобы не нужно было заново проводить все вычисление

Собственно задача такая: есть цикл на огромное число действий, но одно действие нужно выполнить на всех итерациях, кроме последней

[Alar]

Сообщение от Kronos913

можно ли изнутри цикла знать номер последнего

сделайте любую переменную счётчик и знайте себе на здоровье количество итераций.

кроме всего циклом For вы сразу задаёте количество итераций, почему

For i:=1 to номер последней итерации Do

))

одно действие нужно выполнить на всех итерациях

А после цикла это действие указать не возможно? ))
Он как раз выполнится на/после последней итерации

[Kronos913]

Вот код, который я пытаюсь улучшить =)

Суть задачи такая: кусок текста есть в буфере, надо превратить его в строку. При этом
1. Игнорировать пустые строки

2. Следить за тем, чтобы итоговая строка не превысила 255 символов. Если дошли до 255 символов, на этом надо остановиться

3. !!! Разделять строки элементом c. Тип string[1], а не char имеет потому что может он быть, а может и не быть. То есть может быть нужно разделять чем-то строки, а может и нет.

{Возвращает  строку сделанную из текстового буфера обмена.
s - переменная, в которую сохраняется текст
с - символ разделяющий строки}
Function ClipboardToString(var s:string; const c:string1): boolean;
var
 ss:TStrings;
 st, i:word;
 j: byte;

begin
 ss:=TstringList.Create;
 ss.Text:=Clipboard.asText;
 s:='';

 If ss.Count>0 then begin
   {Убираем пустые строки в начале}
   st:=0;
   while ss[st]='' do begin
     inc(st);
     If not(st<ss.Count) then begin
       ss.Free;
       Result:=false;
       Exit;
     end;
   end;
   {Проверяем, не превышает ли 255 первая строка}
   If length(ss[st])>255 then begin
     For j:=1 to 255 do s:=s+ss[st][j];
   end else begin
     {Добавляем первую строку}
     s:=ss[st];
     {Добавляем остальные строки через разделитель}
     For i:=st+1 to ss.Count-1 do begin
       If length(s)+length(c)<256 then begin
         If length(ss[i])>0 then begin
           s:=s+c;
           If length(s)+length(ss[i])>255 then begin
             For j:=1 to 255-length(s) do s:=s+ss[i][j];
             ss.Free;
             Result:=true;
             Exit;
           end else s:=s+ss[i];
         end;
       end else begin
         ss.Free;
         Result:=true;
         Exit;
       end;
     end;
   end;
   Result:=(length(s)>0);
 end else Result:=false;
 ss.Free;
end;

[BDA]

А если так?

function ClipboardToString(var s: string; const c: string1): boolean;
var
  ss: TStringList;
  i: Integer;
begin
  ss := TStringList.Create;
  ss.Text := Clipboard.asText;
  s := '';
  for i := 0 to ss.Count - 1 do
    if Length(ss[i]) > 0 then
    begin
      s := s + c + ss[i];
      if Length(s) > 255 then
        Break;
    end;
  s := Copy(s, 1 + Length(c), 255);
  Result := (Length(s) > 0);
  ss.Free;
end;

[Kronos913]

Я, кстати, не совсем понимаю, когда строка может быть больше 255, а когда нет

[BDA]

Эм, ну скопировали большой текст, вот и получилось в буфере обмена много длинных строк.

[Kronos913]

Я имею в виду переменная типа string в каком случае ограничена 255 символами, а в каком - нет?

[Alar]

Мануалы нужно читать

http://www.delphibasics.ru/String.php
http://www.delphibasics.ru/ShortString.php

[northener]

Сообщение от Kronos913

Я имею в виду переменная типа string в каком случае ограничена 255 символами, а в каком - нет?

Переменная типа string ограничена 255 только если это переменная явно объявлена как ShortString.
Но есть еще одно ограничение размером 255. Текстовая константа в строке кода в исходнике не должна превышать 255 символов.
P.S.
Имхо вы дурью маетесь по причине незнания основ Дельфи и Паскаля.