Wie die Zeilenenden einer Stringlist erkennen?

[himitsu]

Zitat von s-off:

Bediene Dich des regulären Ausdrucks

Code:

\tUngarn$

oder

Code:

\x09Ungarn$

Delphi-Quellcode:

for i:=0 to list.count-1 do
begin

  if pos(#9 + edit1.text, list[i]) = Length(list[i]) - Length(edit1.text) then begin
    gefunden:= i;
    break;
  end;
end;

Delphi-Quellcode:

for i:=0 to list.count-1 do
begin

  if PosEx(#9 + edit1.text, list[i], Length(list[i]) - Length(edit1.text)) <> 0 then begin
    gefunden:= i;
    break;
  end;
end;

Delphi-Quellcode:

S := #9 + edit1.text;
for i:=0 to list.count-1 do
begin

  if PosEx(S, list[i], Length(list[i]) - Length(S) + 1) <> 0 then begin
    gefunden:= i;
    break;
  end;
end;