loeschen der letzten zeile des memo's

[himitsu]

idealer wäre es vielleich, wenn die Prüfung auch gleich direkt mit eingebaut wäre:

Delphi-Quellcode:

function RemoveLastLine(s: TStrings): string;
var
  iLast: Integer;
begin
  with s do
  begin
    iLast := Pred(Count);
    if iLast < 0 then exit;
    Result := Strings[iLast];
    Delete(iLast);
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Edit4.Text := RemoveLastLine(Memo1.Lines);
end;