Új hozzászólás Aktív témák

• #791 Drótszamár őstag GodHeart #789

  Új Válasz 2005-11-25 19:25:54 #791

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Drótszamár

  őstag

  válasz GodHeart #789 üzenetére

   

  
  Type egysor : string;
  
  Var sorok array [1..sok] of egysor;
      soroksz : integer;
  begin
  ...
  soroksz:=0;
  while not eof(file_valtozo) do
   Begin
    soroksz:=soroksz+1;
    readln(file_valtozo,sorok[soroksz]);
   End;
  for i:=1 to soroksz do
   Begin
    writeln(sorok[ i ]);
   End;
  ...
  

  
  
  remélem érthető mire gondoltam, ja és remélem valami hasonlót akartál csinálni
  
  [Szerkesztve]

Új hozzászólás Aktív témák