това решение работи за г. в края на стринга, но води до интересни резултати ако грешния символ е в средата на стринга...
така като гледам си се пробвал да махаш всички грешни символи от датата.
Ако питаш мен това е по-правилно решение (естествено, по-бавно е и гълта повече памет):
function CorrectStrDate(Value : String): string;
var II : byte;
sResult : String;
begin
sResult := '';
for II:=1 to length(Value) do begin
if (Value[II] in ['0'..'9',DateSeparator]) then begin
sResult := sResult + Value[II];
end;
end;
//проверка за случай че във формата за дата е включен 'паразитен' стринг, който съдържа сепаратора
if sResult[length(sResult)] = DateSeparator then sResult := Copy(sResult,1,length(sResult) - 1);
REsult:=sResult;
end;
апропо, това също не е напълно завършено - ще има проблем ако 'паразитния' стринг съдържа, примерно, два пъти сепаратора. Обаче ме мързи да го оправям - ако някой не си е написал собствено решение и реши да използва това - да го има впредвид.
А Картаген... вие си знаете за Картаген
s/Картаген/Модератор/gРедактирано от e-de на 23.02.01 17:28.