Entwickler-Ecke

Dateizugriff - ListBox Werte teilweise speichern


David - Sa 30.11.02 15:07
Titel: ListBox Werte teilweise speichern
Hallo,

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

http://www.web.de
http://www.freenet.de
http://www.t-online.de
...

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

1=http://www.web.de
2=http://www.freenet.de
3=http://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


Anonymous - Sa 30.11.02 17:29

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;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!