loeschen der letzten zeile des memo's

[marabu]

Hi,

du musst nicht durch alle Zeilen des Memos durchgehen um an die letzte Zeile zu gelangen - und da du jedesmal eine Zeile löschst bleibt zum Schluss nur die Hälfte aller Zeilen übrig, von der Exception ganz zu schweigen.

Delphi-Quellcode:

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

procedure TForm2.Button2Click(Sender: TObject);
var
   i : Integer;
begin
  if Memo1.Lines.Count > 0 then
    Edit4.Text := RemoveLastLine(Memo1.Lines);
end;

Grüße vom marabu