新手问题，大家帮忙看看！(50分)

060930-E016-0010-1
061009-aa-0009-2
061009-bbb-0009-3
061009-cccc-0009

我想把以上字符串的最后两位不要，结果如下

060930-E016-0010
061009-aa-0009
061009-bbb-0009
061009-cccc-0009

大家帮忙看看，谢谢！

用Copy函数。

061009-cccc-0009 -> 061009-cccc-0009 ？？

如果是固定的不要后两位 ，你可以这样，
tstr:='060930-E016-0010-1';
tstr:=copy(tstr,1,len(tstr)-2);

uses StrUtils

procedure TForm1.Button1Click(Sender: TObject);
function deletelast(str:string):string;
var I,offset:Integer;
begin
offset:=0;
for I:=0 to 2 do
begin
offset:=posEx('-',str,offset+1);
if offset=0 then break;
end;
if offset=0 then result:=str
else result:=copy(str,1,offset-1);
end;
//var I:Integer;
begin
//for I:=0 to Memo1.Lines.Count-1 do
// Memo1.Lines:=deletelast(Memo1.Lines);
showmessage(deletelast('060930-E016-0010-1'));
showmessage(deletelast('061009-aa-0009-2'));
showmessage(deletelast('061009-bbb-0009-3'));
showmessage(deletelast('061009-cccc-0009'));
end;

use
strUtils;

LeftStr(s,Length(s)-2); //s为原来的字符串，返回你要的字符串

copy(s,Length(s)-2); //s为原来的字符串，返回你要的字符串