formtyaz büyük küçük harf dönüştürme

[gercek_16]

Kod: Tümünü seç

Function formtyaz(frmy: ansistring):ansistring;
var
a:integer; ch:string;
begin
if length(frmy)=0  then
exit;
FOR A:=1 TO LENGTH(FRMY) DO
BEGIN
CASE FRMY[A]  OF
'ı': FRMY[A] := 'I';
'i': FRMY[A] := 'İ';
else
begin
ch:=FRMY[a];
ch:=ansiUpperCase(ch);
FRMY[a]:=ch[1];
end;
end;
end;
result:=frmy;
end;

merhabalar bu kodu bir kaç sene önce delphi 7 ile kullanmıştım.

şimdi aynı kodu başka bir projede delphi 2009 ile kullanmak istiyorum

Kod: Tümünü seç

FRMY[1] :=ch[1];

satırında hata veriyor.

[DCC Warning] cihaz_teslim.pas(88): W1057 Implicit string cast from 'AnsiChar' to 'string'
[DCC Error] cihaz_teslim.pas(90): E2010 Incompatible types: 'AnsiChar' and 'Char'

acaba delphi sürümlerinden mi kaynaklanıyor.

[qamyoncu]

FRMY[a] :=AnsiChar(ch[1]);


Kolay gelsin

[qamyoncu]

Kod: Tümünü seç

FRMY[a] :=AnsiChar(ch[1]);

[gercek_16]

çok teşekkür ederim qamyoncu

şu kadarcık şey için okadar çok zaman harcadım ki inanamazsın
programcılık yapılacak iş değil valla olsa olsa en fazla bir hastalıktır
veba gibi birşey bu.

[qamyoncu]

Mesleğim ve seviyorum

Hayat da böyle değilmidir? Mutluluk küçük ayrıntılarda gizlidir