Case statement med strenge : case tagString of

På http://www.swissdelphicenter.com/en/showcode.php?id=1028 er der givet et eksempel på hvordan man kan bruge CASE sammen med strenge.

snowball >> Jeg har haft kigget på Enumerated types, men forkastede den løsning, da jeg ikke kan bruge "/" i navnene i sådan en type. Jeg har altid et sæt af XML tags : <SUPPLIER_ID> og </SUPPLIER_ID>. Man kunne nøjes med "SUPPLIER_ID" som søgestreng, så skal der ekstra kontrol på, om den tag, man har fundet har et "/" foran.

Jeg har fundet følgende lille artikel om Strings i en case statement, hvor TStringList bliver benyttet : http://www.undu.com/Articles/000229c.html

Det bliver det næste, jeg vil prøve. Så må vi se, om det hjælper ...

Der skal du så bare lige være opmærksom på at IndexOf og Pos ikke søger på samme måde. IndexOf giver kun resultat hvis hele strengen passer med det man søger efter. Pos giver resultat hvis strengen bare indeholder det man søger efter ;)

Der var for hurtig på aftrækkeren. Det hjalp mig ikke særligt meget, da jeg stadig skal have kontrolleret hver linie, om den indeholder noger af de tags, jeg søger efter. Det er den del, jeg skal have optimeret.

Ved at "snyde" lidt kan jeg faktisk bruge TStringList.

Jeg antager, at start- og sluttags (<SUPPLIER_ID> og </SUPPLIER_ID>) altid er i samme linie. Så fungerer følgende ganske fint :

    while not EOF(XMLfile) do
    begin
      ReadLn(XMLfile, oneLine);
      sPos := Pos('<', oneLine);
      ePos := Pos('>', oneLine);
      oneTag := Copy(oneLine, sPos, ePos - sPos + 1);
      tagIndex := TagSearchList.IndexOf(oneTag);
      if tagIndex >= 0 then
      begin
        tagCode := Integer(TagSearchList.Objects[tagIndex]);
        case tagCode of
          0 :
          begin
            Delete(oneLine, 1, ePos); // Remove (whitespaces and) first tag.
            sPos := Pos('<', oneLine); // Find start of next tag.
            SupplierID := Copy(oneLine, 1, sPos - 1);
          end;
...
...
...
        end; // case tagCode
      end; // if tagIndex >= 0
    end; // while not EOF(XMLfile)

I forhold til tidligere model tager det ca. det halve tid.

Det ser ud til, at dette emne dermed er udtømt ...