zrobilem funkcje ddd zwracajaca wartosc w pchar, gdyz chce by w messagebox zwracalo juz skonwertowane bo stringow nie przyjmuje..
funkcja sprawdzam result = 'adam' a messagebox(0,ddd,'',0);
podaje mi #0 = jakis kwadracik
jak rozwiacaac ten problem?
function funkcja:string;
begin
end;
//...
messagebox(...,pchar(funkcja),...)
//...
ale wlasnei nie moge tak zrobic ona musi zwracac tak wartosc by byla w pchar poprawnie - bo robie to do masowej roboty
jak zrobic by funkcja zwracala poprawna wartosc w messagebox bez robienia pchar() ?
StrPCopy()
???
i jak mam ja wykorzystac w takim kodzie? :
[delphi]
function proc(s1,s2:string):PChar;
var txt:textfile; w:string;
zp:TStringList; p:integer;
begin
try
assignfile(txt,formus.filelistbox1.FileName); // tu nalezy podac sciazke do pliku lng
reset(txt);
zp:=TStringList.Create;
while not Eof(txt) do
begin
readln(txt,w);
zp.Add(w);
end;
for p:=0 to zp.Count-1 do
begin
if s1=copy(zp.strings[p],0,length(s1)) then
begin
w:=pchar(copy(zp.strings[p],length(s1),length(zp.Strings[p])));
result:=pchar(copy(zp.strings[p],length(s1)+2,length(zp.Strings[p])));
end;
end
except end;
end;
.
.
.
messagebox(0,proc('Opc508','Opcje :'),'',0);
[/delphi]
troche się gubie w tej twojej funkcji, ale StrPCopy() konwertuje ze zwykłego stringa na pchar i zwraca PChar