TSrings in Ini speichern

[Loni]

Ich habe so versucht das Problem mit TStrings beim speichern in eine Ini zu umgehen aber delphi gibt immer ne Fehlermeldung aus

Delphi-Quellcode:

[DCC Fehler] Unit1.pas(44): E2016 Array-Typ erforderlich

Delphi-Quellcode:

procedure TFKyteClient.BtConnectClick(Sender: TObject);
var Ini: TIniFile;
begin
if CoBUsername.Text<>'' then
begin
if ChBSaveUsername.Checked=true then
begin
Ini:=TIniFile.Create('C:\Kyte Configerations.ini');
Ini.WriteString('Client', 'AktuellUsername', CoBUsername.Text);
Ini.WriteString('Client', 'AlleUsernames1', CoBUsername.ItemIndex[0]);
Ini.WriteString('Client', 'AlleUsernames2', CoBUsername.ItemIndex[1]);
Ini.WriteString('Client', 'AlleUsernames3', CoBUsername.ItemIndex[2]);
Ini.WriteString('Client', 'AlleUsernames4', CoBUsername.ItemIndex[3]);
Ini.WriteString('Client', 'AlleUsernames5', CoBUsername.ItemIndex[4]);
Ini.WriteString('Client', 'AlleUsernames6', CoBUsername.ItemIndex[5]);
Ini.WriteString('Client', 'AlleUsernames7', CoBUsername.ItemIndex[6]);
Ini.WriteString('Client', 'AlleUsernames8', CoBUsername.ItemIndex[7]);
Ini.WriteString('Client', 'AlleUsernames9', CoBUsername.ItemIndex[8]);
Ini.WriteString('Client', 'AlleUsernames10', CoBUsername.ItemIndex[9]);
Ini.WriteBool('Save', 'Checkbox', true);
Ini.Free;
end;
IdTCPClient1.Connect;
end
else if CoBUsername.Text='' then
begin
MessageDlg('Bitte einen Nickname eingeben', mtInformation,[mbOK],0)
end;
end;

[CCRDude]

ItemIndex ist ein Index... Indizes sind meist Integer... und keine Arrays... meinst Du vielleicht .Items[Index] statt .ItemIndex[Index]?

[Loni]

ok danke :wall:

[DeddyH]

Delphi-Quellcode:

CoBUsername.Items[1]:=Ini.WriteString('Client', 'AlleUsernames2', CoBUsername.Items[1]);

Das ist doch Quatsch :freak:
Versuch es mal so:

Delphi-Quellcode:

Ini.WriteString('Client', 'AlleUsernames2', CoBUsername.Items[1]);

[semo]

Zitat:

Ich habe so versucht das Problem mit TStrings beim speichern in eine Ini zu umgehen aber delphi gibt immer ne Fehlermeldung aus

wo gibt es denn da ein problem?

und:

Delphi-Quellcode:

procedure TFKyteClient.BtConnectClick(Sender: TObject);
var 
  Ini: TIniFile;
begin
  if CoBUsername.Text<>'' then
  begin
    if ChBSaveUsername.Checked=true then
    begin
      Ini:=TIniFile.Create('C:\Kyte Configerations.ini');
      Ini.WriteString('Client', 'AktuellUsername', CoBUsername.Text);
  
      // an dieser Stelle eine kleine Schleife ergänzt
      for i:=0 to 9 do
        Ini.WriteString('Client', 'AlleUsernames' + IntToStr(i+1), CoBUsername.Items[i]);

      Ini.WriteBool('Save', 'Checkbox', true);
      Ini.Free;
    end;
    IdTCPClient1.Connect;
  end else if CoBUsername.Text='' then
  begin
    MessageDlg('Bitte einen Nickname eingeben', mtInformation,[mbOK],0)
  end;
end;