Hallo,
hier sind zwei Fkts, die ich mal geschrieben habe. Aus einem String (Zeile) mit Trennzeichen (Separator) holt die erste Fkt den n-ten Eintrag (beginnend mit 0).
Die zweite Fkt gibt an, wieviele Einträge im String vorhanden sind.
Was du dann noch tun musst: Schmeiss die " weg:
Eintrag := copy(Eintrag, 2, lenght(Eintrag) - 2);
Gruss, Niels
function HolEintrag(Zeile: String; Nummer: Integer;
Separator: Char): String;
{Holt den Eintrag an der Position 'Nummer' aus dem String Zeile.
Die Zählung beginnt bei Null. Das Trennzeichen zwischen den
Einträgen wird durch Separator bestimmt.}
var
len: LongInt;
i : LongInt;
begin
i := 1;
len := length(Zeile);
while Nummer \> 0 do begin
if i \> len then break;
if Zeile[i] = Separator then dec(Nummer);
inc(i);
end{while};
Result := copy(Zeile, i, len - i + 1);
i := pos(Separator, Result);
if i \> 0 then Result := copy(Result, 1, i - 1);
end;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
function AnzahlEintraege(const Zeile: String; Separator: Char): Integer;
{Ermittelt die Anzahl der Einträge im String Zeile indem die
Häufigkeit des Trennzeichens Separator bestimmt und um 1
incrementiert wird.}
var
i: LongInt;
begin
Result := 1;
for i := 1 to length(Zeile) do
if Zeile[i] = Separator then inc(Result);
end;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
