ListBox Werte teilweise speichern

David · Beiträge: 27

Hallo,

ich sitze nun an meinem Programm und da komme ich nicht weiter. Ich habe eine Listbox in der folgendes steht:

www.web.de
www.freenet.de
www.t-online.de
...

Nun möchte ich, dass in einer Datei diese Werte folgendermassen abgespeichert werden (*.ini Datei):

1=www.web.de
2=www.freenet.de
3=www.t-online.de

Also soll er das "http://" rausschneiden und immer eine Art "Counter" davor setzen.

Könnte mir jemand mit einem Code beilflich sein? Würd mich sehr feuen.

David

Gast Erhaltene Danke: 1

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  S: String;
begin
  with ListBox1, TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')) do try
    for i := 0 to Items.Count - 1 do begin
      S := Items[i];
      if Pos('HTTP://', UpperCase(S)) > 0 then S := Copy(S, 8, Length(S));
      WriteString('Blabla', IntToStr(i), S);
    end;
  finally Free end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme