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;