---

Hej
Jeg sidder her med en lille opgave til mit studie hvor jeg skal putte nogle
data ind i en array. Det er lykkedes, men nu vil jeg så gerne udbygge det
lille program til også at "huske" de ting der er lagt i array.

Kan du hjælpe mig med lidt kode og forklaring på det ? Jeg vil helst have
gemt data i en tekst fil men hvis det er en dum ide så kom med et andet
forslag.

Jeg arbejder fra Delphi 5 og programmet skal kunne køre på win98 og w2k

Med venlig hilsen Torsten Menzel
tbm@menzel.dk

---

"Torsten Menzel" <tbm@menzel.dk> wrote in
<94906a$ce4$1@news.inet.tele.dk>:

>Hej
>Jeg sidder her med en lille opgave til mit studie hvor jeg skal putte
>nogle data ind i en array. Det er lykkedes, men nu vil jeg så gerne
>udbygge det lille program til også at "huske" de ting der er lagt i
>array.
>
>Kan du hjælpe mig med lidt kode og forklaring på det ? Jeg vil helst
>have gemt data i en tekst fil men hvis det er en dum ide så kom med et
>andet forslag.
>

Flg. kan gemme et array i en fil. Om det er en dum idé eller ej afhænger af
hvad dine data skal bruges til.

type
MyType = array[1..3] of char;

procedure gem;
var
f: file of MyType;
a: MyType;
begin
a[1] := '1';
a[2] := '2';
a[3] := '3';
assignfile(f, 'c:\testarray.txt');
rewrite(f);
write(f, a);
closefile(f);
end;


/Data

---

> Jeg sidder her med en lille opgave til mit studie hvor jeg skal putte
nogle
> data ind i en array. Det er lykkedes, men nu vil jeg så gerne udbygge det
> lille program til også at "huske" de ting der er lagt i array.

Følgende eksempler gemmer og henter dataerne...

var MinArray : array[1..10] of string;

procedure GemData;
var F : TextFile;
I : Integer;
begin
AssignFile( F, 'Filnavn.txt' );
ReWrite( F );

for I := 1 to 10 do begin
WriteLn( F, MinArray[I] );
end;

CloseFile( F );
end;

procedure HentData;
var F : TextFile;
I : Integer;
begin
AssignFile( F, 'Filnavn.txt' );
Reset( F );

for I := 1 to 10 do begin
ReadLn( F, MinArray[I] );
end;

CloseFile( F );
end;

--
Med venlig hilsen
Dennis Andersen
deniande@12move.dk