SystemDelete (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example uses the Delete function to edit a string.

Code

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := 'Honest Abe Lincoln';
  Canvas.TextOut(10, 10, s);
  Delete(s,8,4);
  Canvas.TextOut(10, 40, s);	{ 'Honest Lincoln' }
end;

Uses