"Mors" <larsenofdenmark@hotmail.com> wrote in message
news:3dffba95$0$260$edfadb0f@dread12.news.tele.dk...
> Hej
> Prøver lige igen, om der skulle være mere hjæp at hente
> Det der volder problemer er , når jeg via dialogboks henter "filepath" kan
> den ikke skrives ned i min INI fil ( dog mener jeg at hvis den er tom
kommer
> det rigtige ind ), som check læser jeg de forkellige variabler i en
> showmessage inden jeg prøver at skrive , men nej ----- den gamle filpath
er
> der stadigvæk..
> (((( Det skulle være så let , men så er det faktisk blevet et træls
> problem ))))
>
> lige et tillægsspg. :
> hvad er forskellen på : tmeminifile , tcustuminifile , tinifile ( jeg
bruger
> tinifile )
Skal jeg ikke kunne sige i farten
>
> Prøver med lidt mere kode :
>
> procedure TOpsaetning.FindClick(Sender: TObject);
>
> Begin
> If findBIB.Execute then
> //ini.Lines.Values['t9BIB']
> ed_t9bib.Text:= ExtractFilePath(findBIB.FileName); ****** Er det den
> forkerte måde at trække BIB navnet ud/ind med ??????????
> //ed_t9bib.Text := ini.Lines.Values['t9BIB'] ;
> end;
>
Hvad er findBib - en dialog ? i så fald ser det rigtigt ud ?
ExtractFilePath gør jo følgende
c:\commen\controls\test.txt
vil ved
ExtractFilePath(c:\commen\controls\test.txt)
retunere
c:\commen\controls
> procedure TOpsaetning.SmtphelpClick(Sender: TObject);
> ****************
> begin
>
> case smtphelp.ItemIndex of
> 0: ini.Lines.Values['SMTP']:= InputBox('Skriv din web udbyders udgående
> Smtp ', 'SMTP :', 'Din_web_udbyders_SMTP');
> 1: ini.Lines.Values['SMTP']:='smtp.mail.dk';
> 2: ini.Lines.Values['SMTP']:='pasmtp.tele.dk';
> 3: ini.Lines.Values['SMTP']:='vip.cybercity.dk';
> 4: ini.Lines.Values['SMTP']:='smtpserver.get2net.dk';
> 5: ini.Lines.Values['SMTP']:='mail1.telia.com';
> 6: ini.Lines.Values['SMTP']:='mailrelay.uni2.dk';
> 7: ini.Lines.Values['SMTP']:='smtp.tiscali.dk';
> 8: ini.Lines.Values['SMTP']:='mail.mobilixnet.dk';
> 9: ini.Lines.Values['SMTP']:='mail.wanadoo.dk';
> end;
> ed_smtp.Text := ini.Lines.Values['SMTP'];
> end;
> ****** VIRKER perfekt ************
> **************
> with myinifil do
> begin
> writestring('T','t9BIB',laest9bib); **virker ikke
> //ini.Lines.Values['t9BIB']); *** VIRKER IKKE
> writestring('T','t9BIB', 'hest'); **** VIRKER
> writestring('T','SMTP',ini.Lines.Values['SMTP']); VIRKER
> End;
Hvordan sætter du din inifil op - peger den det rigtige sted
Har du kigget hvad der står i din INI fil
Har værdierne
//ini.Lines.Values['t9BIB']); *** VIRKER IKKE
Hvad vil du opnå med denne linie ? - vil du læse, skrive værdien ?
Hvis det er læse, bruger jeg normalt
ini.ReadString('SYSTEM', 'Brugernavn', 'Brugernavn ikke sat');
Jeg skal have lidt mere kode for at se hvor du går galt i byen - B.la hele
proceduren hvor du skriver til din INI fil.
ini:=TIniFile.Create (extractfilepath(paramstr(0)));
Er måske heller ikke den bedste løsning - jeg kan ikke lige se hva den vil
retunere, jeg bruger normalt
ini:=TIniFile.Create (extractfilepath(Application.exename))+'\Settings.ini';
Kan ikke lige huske om \ skal med foran \Settings.ini
Mvh
Ulrik
>
>
> "Lars B. Dybdahl" <Lars@dybdahl.dk> skrev i en meddelelse
> news:3dff0246$0$149$edfadb0f@dread13.news.tele.dk...
> > Der mangler lidt flere informationer, før jeg kan hjælpe dig, men jeg
kan
> > orientere dig om, hvordan jeg normalt skriver i ini filer:
> >
> > uses
> > SysUtils,IniFiles;
> > var
> > ini:TIniFile;
> > begin
> > ini:=TIniFile.Create (extractfilepath(paramstr(0)));
> > try
> > ini.WriteString ('Sektion','Parameter','Vaerdi');
> > ini.UpdateFile;
> > finally
> > FreeAndNil (ini);
> > end;
> > end;
> >
> > Hilsen,
> >
> > Lars Dybdahl.
> >
> > --
> >
> > Dybdahl Engineering:
http://dybdahl.dk/
> > Delphi brugergruppen DAPUG:
http://dapug.dk/
> >
>
>