Diskuze: Uložení hodnot do souboru
Zobrazeno 4 zpráv z 4.
//= Settings::TRACKING_CODE_B ?> //= Settings::TRACKING_CODE ?>
Nemusíš sem přeci dávat celý zdroják, ale jen tu část, ve které je chyba, na jakém řádku ti to píše chybu?
Tak vec sa má tak že program spustí, no pokiaľ už chcem zmeniť hodnotu
na ScrollBar tak vyhodi spominanu hlášku a modrým vyznači 4 riadok na tejto
časti kódu
procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
Button1Click(ScrollBar1) ;
end;
čiže tomu predchadza tento kód :
procedure TForm2.Button1Click(Sender: TObject);
var
Bar, Barr, Barrr : TextFile;
r, rr, rrr : String;
begin
Assignfile(Bar,'Bar1.txt');
Assignfile(Barr,'Bar2.txt');
Assignfile(Barrr,'Bar3.txt');
rewrite(Bar);
rewrite(Barr);
rewrite(Barrr);
Writeln(Bar,ScrollBar1.Position);
Writeln(Barr,ScrollBar2.Position);
Writeln(Barrr,ScrollBar3.Position);
closeFile(bar);
closeFile(barr);
closeFile(barrr);
Assignfile(Bar,'Bar1.txt');
Assignfile(Barr,'Bar2.txt');
Assignfile(Barrr,'Bar3.txt');
reset(Bar);
reset(Barr);
reset(Barrr);
readln(Bar,r);
readln(Barr,rr);
readln(Barr,rrr);
Form1.Color:=RGB(strtoint(r),
strtoint(rr),
strtoint(rrr));
Form2.Color:=RGB(strtoint(r),
strtoint(rr),
strtoint(rrr));
closefile(Bar);
closefile(Barr);
closefile(Barrr);
Label1.Caption:='Red='+IntToStr(ScrollBar1.Position);
Label2.Caption:='Green='+IntToStr(ScrollBar2.Position);
Label3.Caption:='Blue='+IntToStr(ScrollBar3.Position);;);)
Tam, kde načítáš řádku pomocí readln jsi napsal 2x za sebou Barr místo jenou Barr a podruhé Barrr (mimochodem, pojmenováváním proměnných takhle hloupým způsobem si o chyby v kódu sám říkáš).
Posílám ti opravenou funkci, jak by mohla vypadat:
procedure TForm1.Button1Click(Sender: TObject);
var
Bar: TextFile;
r, g, b : String;
begin
Assignfile(Bar,'Bar1.txt');
rewrite(Bar);
// postupně zapíše řádky
Writeln(Bar,ScrollBar1.Position);
Writeln(Bar,ScrollBar2.Position);
Writeln(Bar,ScrollBar3.Position);
closeFile(bar);
Assignfile(Bar,'Bar1.txt');
reset(Bar);
// postupně načte řádky
readln(Bar,r);
readln(Bar,g);
readln(Bar,b);
closefile(Bar);
Form1.Color:=RGB(strtoint(r),
strtoint(g),
strtoint(b));
Label1.Caption:='Red='+IntToStr(ScrollBar1.Position);
Label2.Caption:='Green='+IntToStr(ScrollBar2.Position);
Label3.Caption:='Blue='+IntToStr(ScrollBar3.Position);
end;
Zobrazeno 4 zpráv z 4.