Zitat von
sharpals:
wieso werden die einrückungen nicht angezeigt ??
Weil da das
[delphi]-Tag fehlt ???
Aber wozu sind diese denn gut?
Nicht daß die extrem uneffektiv programiert wären ... spezell upper (die ander hab'sch mir noch garnicht angesehn) ... es gibt diese ja auch schon (upper ist eigentlich immer in Delphi vorhanden) und für Replace gibt's auch was besseres in der CodeLib, oder in den "neueren Delphiversionen.
Das wäre z.B. schon mal etwas schneller und es ginge noch besser (z.B. mit Hile von 'nem knuffigem PChar ^^)
Delphi-Quellcode:
function upper(eing:string):string;
var i:byte;
begin
setlength(result, eing);
for i:=1 to length(eing)
do
result[i]:=upcase(eing[i]);
end;