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]