Lägga till ett värde, och leta efter det

[MickeS]

Hur ska man göra för att ett delphi program ska lägga ett värde i en textfil ex: C:\test\delphi.txt så att man sedan med ett annat program ska känna av värdet. Alltså ”if” det andra programmet hittar värdet så ska något hända i det prgrammet. ”Else”, alltså att den inte hittar värdet ska något annan hända istället.

 

Tack i förhand

 

/Micke

[Petter Holmström]

Något i stil med detta:

 

var f: TextFile;

in: string;

begin

AssignFile(f, 'C:\test\delphi.txt');

Rewrite(f);

Writeln(f, '1');

CloseFile(f);

 

AssignFile(f, 'C:\test\delphi.txt');

Reset(f);

if not eof(f) then Readln(f, in);

CloseFile(f);

if in = '1' then

// Hittad

else

// inte hittad

end;

[J S]

Om du använder ini format på filen så kan du använda TIniFile för att göra detta.

[Mikey]

Jag har testat denna kod men det blir fel när den letar efter värdet, det går bra att sätta dit de men inte att leta upp det med denna kod.

 

AssignFile(f, 'C:\test\delphi.txt');

Reset(f);

if not eof(f) then Readln(f, in);

CloseFile(f);

if in = '1' then

// Hittad

else

// inte hittad

end;

 

 

Hur ska jag göra för detta vill inte fungera?

 

tack i förhand

 

/Mikey

[J S]

Du läser inte igenom hela filen med din kod, bara första raden.

 

Det borde se ut ungefär såhär.

 

//Loppar igenom raderna till end of file(eof)

while not eof(f) do

begin

readln(f,in);

if in = '1' then

//hittad

end;