so kleines Problemchen mit der copy funktion.
Es wird wohl angenommen, dass ich keinen char sondern einen string kopiere.
gibts hier eine andere funktion, die nur einen bestimmten char auf einer bestimmten stelle speichert?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:char;
begin
edit1.text:=GetHddSerial;
for i:=0 to length(GetHddSerial)-1
do begin
if strtoint(copy(GetHddSerial,i,1))>=0 then
begin
edit2.text:=edit2.text+(copy(GetHddSerial,i,1));
end
else
begin
s:=(copy(GetHddSerial,i,1)); //fehler in dieser zeile
edit2.text:=edit2.text+inttostr(ord(s));
end;
end;
end;