string durch ; getrennt

[WhatAmI]

Delphi-Quellcode:

function countchar(s,signe:string):integer;
var I:integer;
begin
  for I:=1 to length(s) do
   if s[I]=signe then
     result:=result+1;
end;

function extraction(s,signe:string;n:integer):string;
 var I:Integer;
begin
 for I:=1 to n-1 do
   begin
     delete(s,1,pos(signe,s));
   end;
if pos(signe,s) > 0 then
 result:=copy(s,1,pos(signe,s)-1) else
  result:=s;
end;

bei mier funktioniert es! muss nur in die funktion deinen string, dein trennzeichen einsetzen

nacher deine Funktion mit einer for schleife auffrugen

Delphi-Quellcode:

for I:=1 to countchar('deine string','deinetrenzeiche') do
  begin
    lb.items.append(extraction('deine string','deinetrenzeiche',I);
  end;

müsste theoretisch funktionnieren