fjerne tegn

Der er flere måder at gøre det på. Et par eksempler:

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpstr: String;
begin
  tmpstr := 'c:\hejsa.txt||';
  Delete(tmpstr,Length(tmpstr)-1,2);
  Showmessage(tmpstr);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  tmpstr: String;
begin
  tmpstr := 'c:\hejsa.txt||';
  Showmessage(Copy(tmpstr,0,Length(tmpstr)-2));
end;

takker... det virker sku.