Info házimhoz szeretnék segítséget kérni. Tudnátok segíteni?

Egyszerű. Beolvasod a fájlt soronként, a beolvasott szöveget szóköz (#32) karakterek mentén részekre bontod, és hármasával kiírod ++figyelsz arra hogy a sorok között legyen "átfedés", tehát pl:

be.txt:

3 4 5 6

2 3 4

ki.txt:

3 4 5

6 2 3

4

Én valószínűleg csinálnék két Stringlistet, az elsőbe beolvasnám a BE.TXT-t, majd az ExtractStrings eljárással felvágnám a szóközök mentén (ha több sor is van a fájlban, akkor a sorvége jeleket is belevenném és a stringlist text propertyjénből venném az adatokat, mert így az egész fájl tartalmát egy stringként adja vissza). Az extrtactstrings a másik stringlistbe fogja visszaadni az eredményt, minden szám egy sor a stringlistben. Innen kiírni pedig már egyszerű.

pl:

program szamdarabol;

{$mode objfpc}{$H+}

uses Classes, Sysutils;

var

befajl: TStringlist;

kimenet: TStringlist;

i: integer;

begin

Befajl:=TStringList.Create;

Befajl.LoadFromFile('BE.TXT');

Kimenet:=TStringList.Create;

ExtractStrings([' '],[],pChar(Befajl.Text),kimenet);

for i:=0 to Kimenet.Count-1 do

begin

if (i<>0) and ((i mod 3)=0) then writeln();

write(Kimenet[i],' ');

end;

Befajl.Clear;

Befajl.Free;

Kimenet.Clear;

Kimenet.Free;

end.

Az ilyen "beolvasom az egészet" megoldásoknál mindig megkérdezem, hogy mi van akkor ha a file 3 giga neked viszont csak 2 giga szabad memóriád van? :)

Én streamként nyitnám meg az input és output filet, a te esetedben karakterenként olvasnám be,írnám ki az adatokat és minden harmadik szóköz után beszúrnék egy extra sor vége karakter(eke)t is.

Elegánsabb, és kevésbé unalmas megoldás.

Az, hogy nem kell darabolni és tárolni semmit csak hab a tortán.