Hallo,
na klar, Du überschreibst ja auch immer die Werte.
Statt
Delphi-Quellcode:
for i := 0 to VideoDesc.Count - 1 do
begin
MemoDesc.Text := VideoIni.ReadString(VideoDesc[i],'Desc','');
end;
mal damit versuchen
Delphi-Quellcode:
MemoDesc.Lines.Clear;
for i := 0 to VideoDesc.Count - 1 do
begin
MemoDesc.Lines.Add(VideoIni.ReadString(VideoDesc[i],'Desc',''));
end;