String anhand eines Trennzeichens zerlegen

[runningsoft]

Oder wenn es ein anderer Trenner als | ist, z.B. das Semikolon:

Delphi-Quellcode:

S := 'aaa;bbb';
N := Pos(';',S);
S1 := (Copy(S,1,N-1));
Delete(S,1,N);
S2 := S