string, procedyra? Опции

[:-)~]

есть процедура, которая заменяет буквы нижнего регистра в верхний и наоборот??
например: a --> A или B --->b

[Mete0]

function StrUpper(Str: PChar): PChar;

function UpCase(Ch: Char): Char;

[volvo]

Есть...
UpperCase/LowerCase или AnsiUpperCase/AnsiLowerCase

[:-)~]

А как ими правильно пользоваться?
допустим у меня есть строка: sdAFAdFw fd d
мне надо получить: Sdafadfw fd d

как правильно сделать?

[volvo]

s := 'sdAFAdFw fd d';
s := Upcase(s[1]) + LowerCase(copy(s, 2, length(s))); // <-- Если только с латинскими символами

[:-)~]

спасиба, разобрался....

[:-)~]

у меня ещё один вопрос есть: как к множеству прибавить букву из строки?
например:

s:string;
d:set of char;

d:=d+s[i]

или

d:=s[i];

как сделать?

Сообщение отредактировано: :-)~ - 17.06.2007 15:33

[volvo]

d := d + [s[i]];

или

Include(d, s[i]);

[:-)~]

а как вывести в Memo множество?

Memo1.Lines.Add(floatTostr(d));

????????

[volvo]

Посимвольно:

for ch := #0 to #255 do
  if ch in d then memo1.lines.add(ch);