[Delphi] String nach Format absuchen

[PatrickB]

Hi,

ich habe eine Textdatei in der die Dateien nach dem folgenden Format abgespeichert werden:

text |text
text |text
text |text

Wie kann ich jetzt eine Textdatei die ich öffne darauf prüfen ob sie dieses Format enthält?

Danke schonmal,

patrickB

 

[Stex]

Sind im Text unter umständen nochmal die gleichen Zeichen? Also können im Text "|" vorkommen?

Wenn nein, würde ich hier aus meiner Faulheit heraus ein "|" an eine aus der Datei ausgelesene Zeile anhängen und dann mit

function countTokensByString(_String: string; _Seperator: string): integer;
var
PosExAkt: cardinal;
I: integer;
begin
I := 0;
PosExAkt := 0;
while (PosExAkt <> 0) or (I = 0) do
begin
PosExAkt := PosEx(_Seperator, _String, PosExAkt + 1);
Inc(I);
end; // while
Result := I - 1;
end;

überprüfen, ob 2 Stück davon drin sind. Es gibt garantiert ne ganz einfache andere Lösung, aber die Funktion hier hab ich früher mal geschrieben und nutze sie jetzt aus Bequemlichkeit (und es ist zumindest schonmal ein Anfang)