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

• #1966 Retekegér MODERÁTOR

  Új Válasz 2007-08-25 12:40:58 #1966

  Ú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

  

  Retekegér

  MODERÁTOR

  Olyan programot szeretnék írni, mely egy .txt állományban egy adott karakter előfordulásának számát jeleníti meg. Ezt az strscan függvénnyel lehet megvalósítani?
  Eddig megadtam a fájl elérési útját:
  program charszamolo;
  
  uses crt;
  
  var i:integer;
  f:text;
  j,utvonal:string;
  
  begin
  Write('Kerem a text allomany nevet (utvonalat): ');
  Readln(utvonal);
  Assign(f,utvonal);
  {$I-}
  Reset(f);
  If IOResult<>0 then begin
  Write('A file nem elerheto!');
  Halt(1);
  end;
  {$I+}
  i:=0
  ??????? - ide strscan függvény kell?
  end.
  
  [Szerkesztve]

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