Strings trennen

[Andidreas]

hab das grad mal so in paar min hingekrizelt...
habs aber net getestet...
vielleicht gehts ja so (oder so ähnlich)

Delphi-Quellcode:

procedure TMain_Form.Strindurchsuchen ();

var
sRow, sRowNew  : String;
i, ilen, ipos  : Integer;

begin

  ilen := Length(sRow);
  
  For i := 1 To iLen Do
  Begin
    If sRow[i] = '-' Then
    Begin
      sRowNew := Copy(sRow, 1, (iLen - i)
      sRowNew := sRowNew + Copy(sRow, i, iLen);
    End;
  End;

End;