Strings trennen

[capo]

Hallo Marabu,

Zitat:

und wieder sind die Anforderungen nicht klar definiert - aber trotzdem:

stimmt,ich habe manchmal schon so meine Formulierungsprobleme. Danke dir für deine Hilfe und Hellsichtigkeit.

So hab ich es nun gemacht.
Danke an alle nochmal.

Delphi-Quellcode:

function PosEx(const Substr: string; const S: string; Offset: Integer): Integer;
begin
  if Offset <= 0 then Result := 0
  else
    Result := Pos(Substr, Copy(S, Offset, Length(S)));

  if Result <> 0 then
    Result := Result + Offset - 1;
end;

function CapoStr(const s: string): string;
var
  iLen, iPos: Integer;
begin
  iLen := Pos('-', s);
  iPos := PosEx('-', s, Succ(iLen));
  Result := Copy(s, 1, iLen) + Copy(s, Succ(iPos), MaxInt);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    memo2.Lines.Add(CapoStr(Memo1.Lines[i]))
end;