/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
TextFile spørgsmål
Fra : Thomas P


Dato : 13-03-01 15:42

Hej ;) Jeg har lige lavet noget af det, der nok burde være rimelig simpelt
at lave - en funktion, der returnerer indholdet af en tekstfil. Jeg havde
noget af dette i tankerne...

function gettextfromfile : string;
var data : textfile;
begin
if fileexists('mintekst.txt') then
begin
assignfile(data, 'mintekst.txt');
reset(data);
read(data, result);
closefile(data);
end;
end;

....men desværre returnerer overnstående KUN første linie af min tekstfil.
Jeg har selvfølgelig også prøvet at erstatte read med readln, men det virker
ikke (!) - hjælp ville blive appreciteret

--
- Thomas [blomme@post.com] [http://www.FlowCode.f2s.com]





 
 
Niels (niLLer) (13-03-2001)
Kommentar
Fra : Niels (niLLer)


Dato : 13-03-01 17:14

Just as I expected, Thomas P came up with this:

>Hej ;) Jeg har lige lavet noget af det, der nok burde være rimelig simpelt
>at lave - en funktion, der returnerer indholdet af en tekstfil. Jeg havde
>noget af dette i tankerne...

<snip>

>...men desværre returnerer overnstående KUN første linie af min tekstfil.
>Jeg har selvfølgelig også prøvet at erstatte read med readln, men det virker
>ikke (!) - hjælp ville blive appreciteret

function GetTextFromFile(FileName: string): string;
var
f: TextFile;
buf: string;
begin
Result := '';
if FileExists(FileName) then
begin
AssignFile(f, FileName);
while not eof(f) do
begin
ReadLn(f, buf);
Result := Result + buf;
end;
end;
end;

Husk at loope gennem hele filen til du når EOF!

Niels (aka. niLLer)
--
e-mail: nmartin at iname dot com ICQ UIN: 50187323
http://www.niller.f2s.com/ - niLLer's pages (My programs, in English)
http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)

Thomas Due (26-03-2001)
Kommentar
Fra : Thomas Due


Dato : 26-03-01 14:34

Hejsa,

Alternativt kan du jo også anvende TStringList til at hente din textfil.
Der er meget belejligt en operation LoadFromFile som kan anvendes
og så returnerer du jo bare indholdet af din TStringList.

Mvh
Thomas Due

"Niels (niLLer)" <nmartin@ispam.com> wrote in message
news:3aae46ce.7783333@news.12move.dk...
> Just as I expected, Thomas P came up with this:
>
> >Hej ;) Jeg har lige lavet noget af det, der nok burde være rimelig
simpelt
> >at lave - en funktion, der returnerer indholdet af en tekstfil. Jeg havde
> >noget af dette i tankerne...
>
> <snip>
>
> >...men desværre returnerer overnstående KUN første linie af min tekstfil.
> >Jeg har selvfølgelig også prøvet at erstatte read med readln, men det
virker
> >ikke (!) - hjælp ville blive appreciteret
>
> function GetTextFromFile(FileName: string): string;
> var
> f: TextFile;
> buf: string;
> begin
> Result := '';
> if FileExists(FileName) then
> begin
> AssignFile(f, FileName);
> while not eof(f) do
> begin
> ReadLn(f, buf);
> Result := Result + buf;
> end;
> end;
> end;
>
> Husk at loope gennem hele filen til du når EOF!
>
> Niels (aka. niLLer)
> --
> e-mail: nmartin at iname dot com ICQ UIN: 50187323
> http://www.niller.f2s.com/ - niLLer's pages (My programs, in English)
> http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste