Problem z plikami INI.

0

Otóż taki kod napisałem, i niby działa.

procedure TForm1.Button2Click(Sender: TObject);
var INI: TINIFile;
    I: Integer;
begin
 INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'names.ini');
 try
   for I := 1 to Ile do  //W zmiennej Ile przechowuję ilość dynamicznie tworzonych editów i labelów
     INI.WriteString('Sekcja1', TEdit(FindComponent('edt' + IntToStr(Ile))).Text,  TLabel(FindComponent('lbl' + IntToStr(Ile))).Caption);
 finally
   INI.Free;
 end;
end;

Ale plik INI wygląda tak

[Sekcja1]
TrescEdita9=TrescLabela9

Nawet gdybym miał z 10 tych editów, i tak do pliku zapisze się tylko jeden ostatni.

0

Zamiast pomyśleć co należy poprawić od razu piszesz na forum ;/ W sumie po to ono jest, ale nie zmienia to faktu, że należy myśleć i patrzeć co się robi szczegółnie w tak krótkim kodzie. Przyjrzyj się dokładnie co masz w pętli, to znajdziesz błąd. Bo w obecnym zapisie pętla jest zbędna.

0

Tak się zastanawiam, bo widzę drugi temat o ini dzisiaj. Przy tworzeniu projektów(profesjonalnych, a nie kalkulatorów) nadal używa się ini? Jeżeli tak to czy obsługa funkcjami winapi czy własne parsery? Imho korzystanie w tym wypadku z winapi to nie jest najlepszy pomysł(choćby dlatego, że ms zostawił obsługę ini ze względów historycznych).

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