String zerlegen

[yankee]

Also ich würde das so machen:

Delphi-Quellcode:

var str1, str2, zeile:string;

for s:=1 to length(zeile) do //so oft wie die Zeile Zeichen hat 
    begin
        if zeile[s] <>';' then //wenn das aktualle Zeichen kein ; ist, dann:
        begin
            if semikolon=0 then str1 :=str1 +zeile[s];  //das aktuelle Zeichen wird der der Variable str hinzugefügt (wenn es vor dem Semikolon kommt)
            if semikolon=1 then str2:=str2 +zeile[s]; //das aktuelle Zeichen wird der der Variable str2 hinzugefügt (wenn es hinter dem Semikolon steht)
         end;
//------usw.---------
            if zeile[s] =';' then inc(semikolon) //wenn das aktuelle Zeichen ; ist, dann smikolon erhöhen