pchar

Ответ от Weri[гуру]
Function Combination(const data:string):string;
Begin
Result:=Stringreplace(data,'','*',[rfreplaceall]);
Showmessage(Result);
end;
var s:string;
s:=strpas(Combination(s));
showmessage(S);
Попробуй так, чтоли.. Левые символы появляютмся по следущей причине: текстовая Строка должна (Обязана! ) оканчиваться нулевым байтом (#0), в противном случае все байты, что нгаходится после нужной строки ТОЖЕ СЧИТАЮТСЯ ТЕКСТОМ 🙂 Ну и как следствие строка обретает хвост. По скоку память постоянно загажена разным мусором, то символы в конце тоже разные.. .
В данном случае в конце нуля нету похоже.. Почему? - хз.. Ошибка компилятора новерно..
kuh sef
Гуру
(3234)
function Combination(data:PChar):Pchar;
var s:string;
Begin
showmessage(data);
Result:=pchar(Stringreplace(data,'','*',[rfreplaceall]));
showmessage(Result);
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:='testes test test setset etest etset setse tsetse :)';
s:=strpas(Combination(pchar(s));
showmessage(S);
end;
:)) МДА, Вышепреведенное работает у меня без проблем, твой код ТОЖЕ РАБОТАЛ БЕС ПРАБЛЕМ :)!!!.
Кст. У тебя версия делфы какая? у меня 7, может в етом дело?