String zerlegen

[bernau]

Eine Liste der Schlüsselwörter festlegen.

Delphi-Quellcode:

const
  MeineSchluesselwortliste: array [1..5] of string =('BELEMMER025','GESCEICH026','UNTEEICH027','LIEFMMER029','KUNDMMER032');

In dem String mit pos nach den Schlüsselwörtern suchen und vor den schlüsselwörtern in den String ein #13#10 einfügen. Danach in eine TStringlist einlesen.

Delphi-Quellcode:

var
  a:integer;
  x:integer;
....


  for x:=1 to 5 do
    begin
      a:=Pos(MeineSchluesselwortliste[x],DerDatenstring);
      if a>0 then
        insert(#13+#10,DerDatenstring,a);
    end;
   
   MeineStringliste.text:=derDatenstring;

Dann nacheinander mit MeineStringliste.IndexOfName die Werte herauspicken.


(Einfach runtergeschrieben. Nicht getestet.)

Gerd