Hallo, mich plagt zurzeit ein kleines bisschen Quellcode. Ich lade Daten von einer Webseite, zerteile sie mit der Explode Funktion und bekomme am Ende 18 Einzelstrings heraus. Das Schema ist immer gleich: 0 = Name | 1 = Author | 2 = Datum | 3 = Name | 4 = Author usw
Das ganze wird zurzeit in einer Listview verwaltet.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| LI := Maplist.Items.Add;
LI.Caption := StrArr[0];
LI.SubItems.Add(StrArr[1]);
LI.SubItems.Add(StrArr[2]);
LI := Maplist.Items.Add;
LI.Caption := StrArr[3];
LI.SubItems.Add(StrArr[4]);
LI.SubItems.Add(StrArr[5]);
LI := Maplist.Items.Add;
LI.Caption := StrArr[6];
LI.SubItems.Add(StrArr[7]);
LI.SubItems.Add(StrArr[8]);
LI := Maplist.Items.Add;
LI.Caption := StrArr[9];
LI.SubItems.Add(StrArr[10]);
LI.SubItems.Add(StrArr[11]);
LI := Maplist.Items.Add;
LI.Caption := StrArr[12];
LI.SubItems.Add(StrArr[13]);
LI.SubItems.Add(StrArr[14]);
LI := Maplist.Items.Add;
LI.Caption := StrArr[15];
LI.SubItems.Add(StrArr[16]);
LI.SubItems.Add(StrArr[17]); |
Es sind also 6 Einträge mit je 3 Spalten = 18 Strings.
Aber ich will nicht für jeden Eintrag in meinem Programm eigenen Code machen. Ich wollte es zuerst mit repeat und until machen, aber leider stand ich vor dem Problem das LI.Caption nicht '' zurückgibt wenn man bei StrArr[18] ankommt.
Gibt es da eine gute Lösung?
Moderiert von 
Narses: Quote- durch Delphi-Tags ersetzt
