Pascal a čtení ze souboru

[HADES]

Zkuste mi poradit, jak udělat následující:
potřebuju načíst soubor input.txt do proměnné text (string).
jak to mám udělat?
toto je můj dosavadní počin:

Kód: Vybrat vše

procedure nacteni_ze_souboru (var text:string);
var input: file of char;
    znak: char;
    delka_zdroje, counter: integer;

begin
assign (input, 'c:\input.txt');
reset(input);
delka_zdroje:=filesize(input);
for counter:=1 to delka_zdroje do

	begin
  		read (input,text[counter]);
	end;
        close(input);
end; 

[pavel.minarik]

vykašli se na file of char a zkus proměnnou typu text, pak Ti bude fungovat Readln, Writeln apod.

[HADES]

a jak to udělat?

[pavel.minarik]

a jak to udělat?

si děláš prdel ne úplně stejně jako s file of char, v pascalu jsem nepogramoval už cirka 7 let, ale je to takhle:

Kód: Vybrat vše

program Cosi;
var T: Text;
    S: String;
begin
  Assign(T, 'soubor.txt'); //jakej soubor
  Reset(T);  //otevrit
  Readln(T, S); //nactu prvni radek toho souboru
  Writeln(S); //a vypisu ho na standardni vystup - obrazovku
  Close(T); //soubor zavru
end.

[HADES]

ale já ho nechci vypisovat na obrazovku ale nacpat ho do stringu

[Dony]

ty si fakt delas prdel mas to v tom kodu od P.M. Readln(T, S) ti nacte radek do promenne S, takze pokud bude soubor jednoradkovy, mas to.
Pokud bude v souboru vic radku, budes to muset nejak upravit, uz si nepamatuju jak pascal zachazi s retezcem, ale myslim, ze CR LF retezec ukoncuje. Podivej se v Borland Pascalu do helpu

[HADES]

ty si fakt delas prdel mas to v tom kodu od P.M. Readln(T, S) ti nacte radek do promenne S, takze pokud bude soubor jednoradkovy, mas to.
Pokud bude v souboru vic radku, budes to muset nejak upravit, uz si nepamatuju jak pascal zachazi s retezcem, ale myslim, ze CR LF retezec ukoncuje. Podivej se v Borland Pascalu do helpu

Taky jsem v pascalu nedělal už 5 let, ale už sem to nějak pochopil:) Tak díky za help