INI nie chce zapisywać :/

0

Przeglądałem kodzik ze 20 razy i nic.. dlaczego nic nie zapisuje do INI:

procedure TForm1.zapiszClick(Sender: TObject);
var
  i,j: integer;
begin
  INI := TINIFile.Create(ExtractFileDir(Application.ExeName) + '\marks.ini');
  for i := 0 to Markers.ComponentCount -1 do
  begin
  if Markers.Components[i] is TSynCustomHighLighter then
  begin  
      for j := 0 to (Markers.Components[i] as TSynCustomHighLighter).AttrCount -1 do
      begin
        INI.WriteInteger(Markers.Components[i].Name, (Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Name + '_F', integer((Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Foreground));
        INI.WriteInteger(Markers.Components[i].Name, (Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Name + '_B', integer((Markers.Components[i] as TSynCustomHighLighter).Attribute[j].Background));

     end;  
    end;
  end;
  INI.Free;
end;

"Markers" to osobny Data Module gdzie trzymam HighLightery (SynEdit).

PS: jest to zapis kolorować wszytkich highligterów.

0

ale zapisuje ci pusty plik czy nie twozry nawet pliku na dysq?

0

Próbowałeś w trybie debugowania przeglądać krok po kroku i patrzeć czy wszystkie zmienne maja takie wartosci jak trza? To bardzo przydatna funkcja (okienko Watches pod CTRL+ALT+W) :)

0

wywal ukosnik przy nazwie pliku.ini

//wstydu oszczedz..nie dosc ze lol to jeszcze ociemnialy.. -L

0

Nie prosciej użyć SaveToFile przy Highlighterze?

1 użytkowników online, w tym zalogowanych: 0, gości: 1