dlaczego mi to nie działa??
{...}
for j:=0 to Form2.memo.lines.Count do
begin
form2.memo.Lines[j];
zaw:=ini.ReadString('FN',inttostr(j),'');
ini.Free;
form2.listbox.Items.Add(zaw);
end;
dlaczego mi to nie działa??
{...}
for j:=0 to Form2.memo.lines.Count do
begin
form2.memo.Lines[j];
zaw:=ini.ReadString('FN',inttostr(j),'');
ini.Free;
form2.listbox.Items.Add(zaw);
end;
Może bardziej określisz swój problem.. a nie "czemu to nie działa"
form2.memo.Lines[j]; <-- do czego to?
Może tak:
{...}
for j:=0 to Form2.memo.lines.Count -1 do begin
// form2.memo.Lines[j]; - właśnie, po co to ?? :D
zaw:=ini.ReadString('FN',inttostr(j),'');
form2.listbox.Items.Add(zaw);
end;
Na GG się nie odezwałeś, a pytałem dokładniej o co chodzi, więc napisze tu. Ciężko pokapować co tu chciałeś zrobić :-/ No ale może tak:
for j:=0 to Form2.memo.lines.Count <font color=red>-1</font> do
begin
zaw:=ini.ReadString('FN', form2.memo.Lines.Strings[j],'');
form2.listbox.Items.Add(zaw);
end;
<font color=red>ini.Free;</font> // Free dopiero poza petla!
Wyjaśnij o co ci chodziło, jeśli nie o to.
var
... // twoje zmienne
ini : TiniFile;
j : Cardinal;
zaw: string;
... // twoj kod
ini := ini.create(plik) // dark : zmien plik na nazwe pliku
for j:=0 to Form2.memo.lines.Count - 1 do // dark : Ostatni elemnt to liczba elementow - 1
begin
//form2.memo.Lines[j]; // dark : po co ?
zaw:=ini.ReadString('FN',inttostr(j),'');
// ini.Free; // dark : przy drugim przebiegu access violation
form2.listbox.Items.Add(zaw);
end;
ini.free;
... // twoj kod
bylem ostatni :( glupi serwer chache
moze fragment kodu w moim wykonaniu nie jest najfortunniejszy lae chodzilo mi oto że z komponetu memo odczytywane są wszystkie lini pokolei jednocześnie są one:
zaw:=ini.ReadString('FN',inttostr(j),'');
a następnie odczytana z ini wartość trafia do listbox'a
//Dopisane
Sposób MatroX'a zadziałal problm rozwiązany
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.