Zapis do souboru v Delphi

Zdravím.
Mam soubor.
Tady je kousek

user_pref("intl.charsetmenu.browser.cache", "ISO-8859-2, windows-1251, ISO-8859-1, windows-1250, UTF-8");
user_pref("network.cookie.prefsMigrated", true);
user_pref("network.http.max-persistent-connections-per-server", 4);
user_pref("network.proxy.backup.ftp", "moje proxy");
user_pref("network.proxy.backup.ftp_port", 3128);
user_pref("network.proxy.backup.gopher", "");
user_pref("network.proxy.backup.gopher_port", 0);
user_pref("network.proxy.backup.socks", "moje proxy");
user_pref("network.proxy.backup.socks_port", 3128);
user_pref("network.proxy.backup.ssl", "moje proxy");
user_pref("network.proxy.backup.ssl_port", 3128);
user_pref("network.proxy.ftp", "moje proxy");
user_pref("network.proxy.ftp_port", 3128);
user_pref("network.proxy.gopher", "moje proxy");
user_pref("network.proxy.gopher_port", 3128);
user_pref("network.proxy.http", "moje proxy");
user_pref("network.proxy.http_port", 3128);
user_pref("network.proxy.share_proxy_settings", true);
user_pref("network.proxy.socks", "moje proxy");
user_pref("network.proxy.socks_port", 3128);
user_pref("network.proxy.ssl", "moje proxy");
user_pref("network.proxy.ssl_port", 3128);
user_pref("network.proxy.type", 1);
user_pref("nglayout.initialpaint.delay", 600);

Kdysi davno jsem si udělal batak přes ktery jsem nastaveni měnil

echo user_pref("network.proxy.ftp", "moje proxy");>>"%ffile%\prefs.js"
echo user_pref("network.proxy.ftp_port", 3128);>>"%ffile%\prefs.js"

Jak však na to v delphi, poradite

Předmět	Autor	Datum
Asi by som to riešil možno nejak takto: procedure TForm1.Button1Click(Sender: TObject); var TS: TSt… pme 08.05.2012 10:02	pme	08.05.2012 10:02
pme dik moc, to je vončo :-D poslední kubicek 08.05.2012 18:05	kubicek	08.05.2012 18:05

Předmět

Autor

Datum

Asi by som to riešil možno nejak takto: procedure TForm1.Button1Click(Sender: TObject); var TS: TSt…

pme 08.05.2012 10:02

pme

08.05.2012 10:02

pme dik moc, to je vončo :-D poslední

kubicek 08.05.2012 18:05

kubicek

08.05.2012 18:05

procedure TForm1.Button1Click(Sender: TObject); var TS: TStringList; i: Integer; s: String begin TS := TStringList.Create; TS.LoadFromFile('C:\prefs.js'); for i := 0 to TS.Count-1 do begin s:= TS[i]; // tu urobíš čo chceš s každým reťazcom "s" // // prepíšeš ho naspäť TS[i] := s; end; TS.SaveToFile('C:\prefs.js'); TS.Free; end;