Immer schön, wenn dann nicht die Lösung genannt wird.
Da freut sich jeder mit dem gleichen oder einem änlichen Problem, wenn er irgendwann diesen Thread findet.
Zur Aufgabenstellung passend auch eine Lösung mit etwas mehr Mathematik drin.
Delphi-Quellcode:
SL := TStringList.Create;
SL.LoadFromFile('Eingabe.txt');
for i := SL.Count - 1 downto 0 do begin
SL[i] := IfThen(i = 0, 'NOTE ' , 'CONC ') + SL[i];
for i2 := (Length(SL[i]) - 1) div 248 downto 1 do
SL[i] := Copy(SL[i], 1, i2 * 248) + sLineBreak + 'CONT ' + Copy(SL[i], i2 * 248 + 1);
end;
SL.SaveToFile('Ausgabe.txt');
SL.Free;
Angaben ohne Waffe, aber mein verdrehtes Hirn meint es könnt stimmen, was es mal schnell hingetippen lies und nicht getestet hat.
Mit einer Funktion ala SplittString, die aber nach Länge trennt, lässt sich die Schleife auf einen Zweizeiler kürzen.