читать
fs.rtf
Цитата:
Преобразование типов
function IntToStr(i: Integer): String
Перевод целого в строку
|
delphi Код:
MessageSend('>'+NamePK+' '+IntToStr(KarmaPK))
вроде так
Добавлено через 20 минут
Профы я так вывожу
1. создал файл ClassName.ini Под C4
Оффтоп
Human Fighter
Warrior
Gladiator
Warlord
Human Knight
Paladin
Dark Avenger
Rogue
Treasure Hunter
Hawkeye
Human Mystic
Human Wizard
Sorceror
Necromancer
Warlock
Cleric
Bishop
Prophet
Elven Fighter
Elven Knight
Temple Knight
Swordsinger
Elven Scout
Plainswalker
Silver Ranger
Elven Mystic
Elven Wizard
Spellsinger
Elemental Summoner
Elven Oracle
Elven Elder
Dark Fighter
Palus Knight
Shillien Knight
Bladedancer
Assassin
Abyss Walker
Phantom Ranger
Dark Elven Mystic
Dark Elven Wizard
Spellhowler
Phantom Summoner
Shillien Oracle
Shillien Elder
Orc Fighter
Orc Raider
Destroyer
Orc Monk
Tyrant
Orc Mystic
Orc Shaman
Overlord
Warcryer
Dwarven Fighter
Dwarven Scavenger
Bounty Hunter
Dwarven Artisan
Warsmith
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
none
Duelist
DreadNought
Phoenix Knight
Hell Knight
Sagittarius
Adventurer
Archmage
Soultaker
Arcana Lord
Cardinal
Hierophant
Eva Templar
Sword Muse
Wind Rider
Moonlight Sentinel
Mystic Muse
Elemental Master
Evas Saint
Shillien Templar
Spectral Dancer
Ghost Hunter
Ghost Sentinel
Storm Screamer
Spectral Master
Shillien Saint
Titan
Grand Khauatari
Dominator
Doomcryer
Fortune Seeker
Maestro
название проф тут полное, лучше сократить до 2-4 символов на свой вкус
2. добавил глобальную переменную - ClassName: TStringList
3. и Init и Free - соответственно добавить
delphi Код:
ClassName :=TStringList.Create;
ClassName.LoadFromFile('ClassName.ini');
4. видираю из CharInfo профу, и вывожу
delphi Код:
function GetClassName(CID : integer) : string;
begin
result :=ClassName.Strings[CID];
end;
MessageSend(GetClassName(ClassID))