ExtractStrings og flexibilitet

Er det ikke et PAnsiChar?

I så fald, indsæt denne:

ExtractStrings([PAnsiChar(Edit1.Text)],[],PChar(s[i]),a);
PAnsiChar() laver en string om til et PAnsiChar..

ExtractStrings([Edit1.Text[1]],[],PChar(s[i]),a);

Første parameter skal være Set of Char.

Edit1.text er String.  Som Kroning anfører får du første tegn (og altså en char) i String'en ved at tilføje [1].
Du bør inden sætningen tjekke at indholdet er OK, altså at strengen netop har længden 1:

if length(Edit1.Text)= 1 then

kroning -> Tak for løsningen.
a_nor -> Tak for super forklaring.

Læg svar begge to.

tak.

ok