[LIN][FPC][TERM] Zeichenbegrenzung

[Nils_13]

Hm, habe den Code angepasst, hat aber nichts geändert:

Delphi-Quellcode:

for i := 1 to Length(l) do
begin
  if l[i] = ' ' then
    s := s + '/ '
  else
    for j := 0 to High(Arr[1]) do
      if Length(s) = 256 then
      begin
        WriteLn(s);
        s := '';
      end else
        if Arr[1][j] = Trim(UpperCase(l[i])) then
          s := s + Arr[0][j] + ' ';
end;

EDIT:

= 255 muss es sein. Das ist an sich aber unschön eine neue Zeile zu erstellen. Ist es nicht möglich das aneinander zu ketten ?

Und was zur Hölle macht die DP mit meinem Code...immer wird er auseinandergenommen und ich muss ihn erst nochmal umschreiben....