mam udelany aby mi program otevrel textak udelal z nej kopii....ale ted potrebuju aby mi v ty kopii udelal vzdy po 80 znacich dalsi radek....proste max 80 znaku na radek :( pls pomozte
Fórum › Pascal
Zalomeni textu vzdy po 80 znacich
![](img/forum_vlakno_help_vyreseno.png)
To spouny: Může být?
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const FileIn = 'pokus.txt';
FileOut = 'pokus2.txt';
CountPerLine = 5; {pocet znaku na radek}
var fin, fout: text;
line: String;
last: Integer;
begin
Assign(fin, FileIn);
Assign(fout, FileOut);
Reset(fin);
Rewrite(fout);
while not Eof(fin) do begin
Readln(fin, line);
last := 0;
repeat
writeln(fout, Copy(line, last, CountPerLine));
last := last + CountPerLine;
until(last >= length(line));
end;
Close(fin);
Close(fout);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 5 hostů
Podobná vlákna
Zalomení v HT — založil Boblig
Zalomeni radku — založil turbo-snek
Foreach a zalomení do 2 sloupců — založil Paja2
Zalomení dlouhé sekvence znaků — založil Anonymní uživatel
Zalomení řádku v sms přes mail() — založil Štěpán Andrle
Moderátoři diskuze