Wert abgleichen mit berücksichtigung von ">","<&q

[Real-TTX]

Hi Leute,

Ich stehe gerade vor einem Problem, auf das ich keine Lösung finde. Ich habe eine Tabelle erstellt (Bild siehe Anhang) und möchte nun auf einzelne Spalten prüfen. Die Werte Der Spalten(Header) können sich verändern (stehen in einer XML Datei).

Dabei ist zuberücksichtigen dass die einzelnen Spalten auch > und < haben können. Eine Spalte sieht zb so aus: ">0,5 - 3"

Nun habe ich ein Textfeld (Edit). Dieses möchte ich auswerten lassen(Einsortieren in die richtige Spalte) ....

Falls es euch hilft, hier der Code wie ich die Tabelle (Grid) fülle:

Delphi-Quellcode:

  XMLVL := newXMLDocument;
  XMLVL.LoadFromFile(Config.XMLVALUE_FILE);

  VList := XMLVLRead(XMLVL);

  for i := 1 to 8 do
  begin
    OutputString := '';
    case StrToInt(VList.List[i].VFromType) of
      1: OutputString := OutputString + '>';
      2: OutputString := OutputString + '<';
      3: OutputString := OutputString;
    end;

    OutputString := OutputString + VList.List[i].VFrom + ' - ';

    case StrToInt(VList.List[i].VToType) of
      1: OutputString := OutputString + '>';
      2: OutputString := OutputString + '<';
      3: OutputString := OutputString;
    end;

    OutputString := OutputString + VList.List[i].VTo;

    with (StrGValues) do
    begin
      Cells[i,0] := OutputString;
      Cells[i,1] := VList.List[i].VSectionA;
      Cells[i,2] := VList.List[i].VSectionB;
      Cells[i,3] := VList.List[i].VSectionC;
      Cells[i,4] := VList.List[i].VSectionD;
    end;
  end;

  with (StrGValues) do
  begin
    for i := 1 to 4 do
    begin
      Cells[0,i] := VList.Section[i];
    end;
    Cells[0,0] := VList.Name;
  end;

Hat jemand eine Idee?

Gruß, Real-TTX