Stringlist

[manfred_h]

Hallo zusammen

habe da ein kleines Probelm.
Folgende Zeile aus einer DB muss ich aufteilen um sie danach zerteilt in einer anderen Tabelle zu speichern.
> AK SH 36 VA DV EZ
Es können bis zu 12 Werte sein die mit einem Leerzeichen voneinander getrennt sind.
Kann aber auch vorkommen das nur ein Wert drin ist.

mit folgendem Code kann ich die Zeile zwar einlesen wenn alles ausgefüllt ist aber erhalte
Fehlermeldungen wenn Werte fehlen.

Wie kann ich überprüfen wieviele Werte im String vorhanden sind?

Delphi-Quellcode:

        begin
          input := udm.t_SVADR.FieldByName('ART').AsString;
          sl := TStringList.Create;  // StringList erstellen
          sl.Delimiter := ' ';       // Trennzeichen einstellen
          sl.DelimitedText := input;
          try
            FieldByName('ART_1').AsString := (sl[0]);
            FieldByName('ART_2').AsString := (sl[1]);
            FieldByName('ART_3').AsString := (sl[2]);
            FieldByName('ART_4').AsString := (sl[3]);
            FieldByName('ART_5').AsString := (sl[4]);
            FieldByName('ART_6').AsString := (sl[5]);
            FieldByName('ART_7').AsString := (sl[6]);
            FieldByName('ART_8').AsString := (sl[7]);
            FieldByName('ART_9').AsString := (sl[8]);
            FieldByName('ART_10').AsString := (sl[9]);
            FieldByName('ART_11').AsString := (sl[10]);
            FieldByName('ART_12').AsString := (sl[11]);
          finally
            sl.Free;  // Speicher freigeben
          end;

Shalom
Manfred


[edit=Matze]Tippfehler im Titel korrigiert. MfG, Matze[/edit]