Удаление Чара в AnsiString

Question

У меня есть этот AnsiString, например

DISC506002000001008100021041511207123051520515308154091550920TN177869-0151J1  36J207 70077  0     0 

Попытка извлечь TN177869-0151J1

но код, я использую постоянно возвращается мне всю AnsiString.

function TForm5.ParseDataPartNumber(Data: AnsiString):ansistring; 
var 
    ExtraData: Ansistring; 
begin 
    extraData := data; 
    Delete(extraData,76,30); 
    Delete(extraData,0,61); 
    result:=extraData; 
end; 

Что я делаю неправильно? Это из-за того, что он является подписью вместо строки? это меня отбрасывает?

Answer 1

Строки 1 на основе, поэтому изменить ваш второй Удалить с индексом 1 вместо 0.

т.е.

function TForm5.ParseDataPartNumber(Data: AnsiString):ansistring; 
var 
    ExtraData: Ansistring; 
begin 
    extraData := data; 
    Delete(extraData,77,43); 
    Delete(extraData,1,61); 
    result:=extraData; 
end; 

Ваши показатели были неправильно, чтобы извлечь эту строку. Мой ответ показывает измененные значения.

Answer 2

Ваш код не работает, потому что вы передаете неправильные значения в параметрах метода Delete. В любом случае вы можете использовать функцию Copy вместо как так

function TForm5.ParseDataPartNumber(const Data: AnsiString): ansistring; 
begin 
    Result:=Copy(Data, 62,15); 
end;