Habe ein kleines Problem
Ich suche in einer Datei bestimmte String die in ein Array stehen.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.SpeichernUnter1Click(Sender: TObject);  VAR      ist: TStringList;      i : Integer;  begin    ist:=TStringList.Create; //Objekt erzeugen    try      ist.LoadFromFile('C:\profile.hbs'); //Datei in Stringliste laden      for i:=1 to 17 do // [i][]        begin               showMessage('Variable: ' +zeilen[i].variable[0].name+ ' wurde in Zeile: ' +InttoStr( ist.IndexOfName( zeilen[i].variable[0].name ) )+ ' gefunden');          end;    finally    ist.free; //Objekt wieder freigeben    end;  end;

Die Datei sieht so aus:

Code :

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 30 31

x 1 Seitenformat x 1.1 Maximale Zeilenl„nge (Zeichen pro Zeile): i b=36 x 1.2 Maximale Seitenl„nge (Zeilen pro Seite): i s=28 x 1.3 Satzspiegelverschiebung auf allen Seiten um: i a=3 x 1.4 Linker Satzspiegelrand auf R?ckseiten an Position: i h=1 x 1.5 Oberer Satzspiegelrand in Zeile: i v=1 x 1.6 Linker Innenrand: i A=0 x 1.7 Rechter Innenrand: i R=0 x 1.8 Fuázeilentexte erhalten (j/n)? I ~=N x 1.9 Fuázeilentexte zentriert formatieren (j/n)? i k=6 x 1.10 Anfangsposition des Fuázeilentextes: i k=6 x 1.11 Nur ungerade Seiten paginieren oder \C z-Code x 1.12 Paginierung ausschalten (j/n)? \C o-Code x 1.14 Textunterbringung in unterster Seitenzeile erlaubt (j/n)? I S=N x 1.15 Max. Zeilenl„nge der untersten Seitenzeile: i S=28 x 1.16 :-Code aktiv (:) oder nicht aktiv (\C :): \C :-Code

dummerweise unterscheidet er groß und kleinschreibung nicht und wenn ich nach "I s" suche, gibt er immer nur die erste zeilennr aus wo "i s" vorkommt obwohl also 4 aus und nicht 26.
Kann man ist.IndexOfName( zeilen[i].variable[0].name ) sagen das er auch aus Gro0 und Kleinschreibung achten soll ?

Hallo!

Ich habs jetzt nicht ausprobiert (hatte zu wenig Zeit), aber es gibt bei Stringlisten eine Eigenschaft, die sich CaseSensitive nennt. Eventuell kannst du über

Code :

1	ist.CaseSensitive := true;

das Problem lösen.
Ansonsten bleibt wohl nur, selbst eine Funktion dazu zu schreiben, die das ganze überprüft...

lg Hellie