Unit Szoveg_Unit; {$H+ -- AnsiString : a nagyon hosszú stringekhez; e direktíva a használó programban is kell!!!} (* Szöveg-műveletek: Függvény Hossz(Konstans s:Szöveg):Egész Első(Konstans s:Szöveg):Karakter ElsőUtániak(Konstans s:Szöveg):Szöveg Utolsó(Konstans s:Szöveg):Karakter UtolsóElőttiek(Konstans s:Szöveg):Szöveg Elejére(Konstans s:Szöveg, k:Karakter):Szöveg Végére(Konstans s:Szöveg, k:Karakter):Szöveg Bal(Konstans s:Szöveg, db:Egész):Szöveg Jobb(Konstans s:Szöveg, db:Egész):Szöveg KözépDb(Konstans s:Szöveg, tól,db:Egész):Szöveg KözépIg(Konstans s:Szöveg, től,ig:Egész):Szöveg SzövegFájl-műveletek: Függvény OlvasásraNyit(Változó f:SzövegFájl, Konstans fN:Szöveg):Logikai (!) IrásraNyit(Változó f:SzövegFájl, Konstans fN:Szöveg):Logikai (!) Eljárás IrásraNyitMindenképpen(Változó f:SzövegFájl, Konstans fN:Szöveg) (!) Függvény Olvas(Változó f:SzövegFájl):Karakter (!) SorOlvas(Változó f:SzövegFájl):Szöveg (!) SorVége?(Változó f:SzövegFájl):Logikai Eljárás Ir(Változó f:SzövegFájl, Konstans k:Karakter) (!) SorIr(Változó f:SzövegFájl, Konstans s:Szöveg) (!) Függvény FájlVége?(Változó f:SzövegFájl):Logikai Eljárás Zár(Változó f:SzövegFájl) Megjegyzés: A (!)-lel jelölt műveletek szignatúrája eltér az előadáson előfordulótól! Kódolás: IBM852 *) Interface Function Hossz(Const s:String):Integer; Function Elso(Const s:String):Char; Function ElsoUtaniak(Const s:String):String; Function Utolso(Const s:String):Char; Function UtolsoElottiek(Const s:String):String; Function Elejere(Const s:String; k:Char):String; Function Vegere(Const s:String; k:Char):String; Function Bal(Const s:String; db:Integer):String; Function Jobb(Const s:String; db:Integer):String; Function KozepDb(Const s:String; tol,db:Integer):String; Function KozepIg(Const s:String; tol,ig:Integer):String; Function OlvasasraNyit(Var f:Text; Const fN:String):Boolean; Function IrasraNyit(Var f:Text; Const fN:String):Boolean; Procedure IrasraNyitMindenkeppen(Var f:Text; Const fN:String); Function Olvas(Var f:Text):Char; Function SorOlvas(Var f:Text):String; Function SorVegeE(Var f:Text):Boolean; Function FajlVegeE(Var f:Text):Boolean; Procedure Ir(Var f:Text; Const k:Char); Procedure SorIr(Var f:Text; Const s:String); Procedure Zar(Var f:Text);