String in StringList suchen

[oki]

Hi,

ich suche die Zeilennummer in einer StringList, in der ein Teilstring das erste mal vor kommt.
Benutzt man IndexOf, so muss der gesamte String der Zeile mit dem Teilstring übereinstimmen. Geht also nicht.

als Bsp.

Delphi-Quellcode:

  Index := MyStringList.IndexOf('Msg_1001');

Die zu suchende Zeile lautet "$Msg_1001*1D".

Im Bsp. liefert IndexOf -1. Eigentlich wollte ich die Zeilennummer haben.

Kennt hier jemand eine andere einfache Möglichkeit außer die gesamte List in einer Schleife zu durchlaufen und Zeilenweise mit Pos zu suchen?

Gruß oki

[mkinzler]

Das .IndexOf funktioniert, muß der Suchstring mit einem Eintrag komplett übereinstimmen. In deinem Fall mußt du wohl jeden Teilstring mit Pos o.ä. Durchsuchen.

[oki]

Also doch der "lange" Weg. Naja, wollte nur sicher gehen.

Dank und Gruß oki

[oki]

hab's jetzt so gelöst:

Delphi-Quellcode:

function GetMsgStartLine(Identifier: String): Integer;
var Counter : Integer;
begin
  Result := -1;
  For counter := 0 to MyStringList.Count -1 do begin
    IF Pos(Identifier, MyStringList.Strings[Counter]) > 0 then begin
      Result := Index;
      Exit;
    end;
  end;
end;

Gruß

[oki]

Hi Leute,

beginner77 hat mich auf einen Fehler aufmerksam gemacht. Hier noch mal der korrekte Code:

Delphi-Quellcode:

function GetMsgStartLine(Identifier: String): Integer;
var Counter, Index : Integer;
begin
  Result := -1;
  For counter := 0 to MyStringList.Count -1 do begin
    Index := Pos(Identifier, MyStringList.Strings[Counter]);
    IF Index > 0 then begin
      Result := Index;
      Exit;
    end;
  end;
end;

Gruß oki

[Klaus01]

Wolltest Du nich die Zeilennumer haben.

Delphi-Quellcode:

function GetMsgStartLine(Identifier: String): Integer; 
var Counter, Index : Integer; 
begin 
  Result := -1; 
  For counter := 0 to MyStringList.Count -1 do begin 
    Index := Pos(Identifier, MyStringList.Strings[Counter]); 
    IF Index > 0 then begin 
      Result := Index; 
      Exit; 
    end; 
  end; 
end;

Hier bekommst Du die Position in der Zeile geliefert aber nicht die Zeile.

Result:=counter

sollte Dir die Zeilennummer geben.

Grüße
Klaus

[oki]

Hi Klaus,

ich gebs auf :wall:

Natürlich wollte ich die Zeilennummer haben. Hier die x-te Korrektur:

Delphi-Quellcode:

function GetMsgStartLine(Identifier: String): Integer;
var Counter : Integer;
begin
  Result := -1;
  For counter := 0 to MyStringList.Count -1 do begin
    IF Pos(Identifier, MyStringList.Strings[Counter]) > 0 then begin
      Result := Counter;
      Exit;
    end;
  end;
end;

Ich hoffe das war's jetzt. wenn einem noch was auffällt, her damit.

[kalmi01]

Moin moin Leuts,

mal so, aus dem Handgelenk würde ich das ehr so angehen:

1.) i := Pos('suchtext', MyStringList.Text);
2.) von der Position i rückwärts nach CR/LF suchen
3.) von der Position i vorwärts nach CR/LF oder #00 suchen

Zwischen den Pos. 1. und Pos. 2. liegt der exakte String, mit
dem man dann ein

Delphi-Quellcode:

Index := MyStringList.IndexOf('Msg_1001');

füttern könnte.
Dürfte bei langen Listen auch schneller sein.

[oki]

Hi kalmi01,

warum schneller?

Gruß

[kalmi01]

Zitat:

Zitat von oki

warum schneller?

Weil der Vergleich auf GLEICHHEIT schneller ist, als das Suchen einer Position in einem String ?