Побуквенно считать слово из файла

[Zloy_Doomer]

Доброго времени суток господа...Такой вопрос: как мн есчитать слово из текстового файла по буквам...Например там слово "дом", мне нада переменной a:="д" b:="о" c:="м"...Или если я считал в одну переменную слово как мне его разложит ьпо буквам...Напимер

assignfile(f,ExtractFilePath(Applic ation.ExeName)+'lock.dat');
reset(f);
readln(f,pass);
pass1:= pass[0];
pass2:= pass[1]; и так далее..

етот код не работает но по моему ето должно ввыглядеть какт о так....

Очень срочно, ибо нада прогу закончить до утра...

И еще чтобы перевести букву в ее код используется функция ORD а назад какя функцыя переводит???
Зараннее спасибо за ответы...

[Arigato]

Что там у Вас не работает, понять по приведённому куску кода и комментариям невозможно.
А по поводу

И еще чтобы перевести букву в ее код используется функция ORD а назад какя функцыя переводит???

CHR - обратная. Однако можно использовать простые преобразования типов: Byte() и Char() соответственно.

[mihali4]

pass1:= pass[0]

А разве в паскале индексация начинается не с 1 ?

ORD а назад

Chr. Проще было открыть хэлп по Ord и посмотреть ссылку "See also"

З.Ы. Ну что ты будешь делать? Он специально меня подкарауливает и норовит опередить
Arigato +++

[Zloy_Doomer]

Блин кароч чето у меня нифига не получается...если можно то кусочеккода для реализации такого алгоритма (башка не варит апсалютно):
1. Считывается определенное слово(могут присутсвовать и цыфры) из скажем Edit1.Text.
2. Ето слово, разбивается побуквенно и переводится в код с помощью функции ORD.
3. Дальше к каждому числу прибавляется(отнимается,делится.умн ожается.не важно) оперделенные числа...
4. И все ето записывается в файл...

И собственно считывание...
1.Считывается из текстового файла ето число которое мы туда записали...
2. Переводится в обратно в буквы...
3.Присваивается тому же Edit1.Text...
4. И тут сравнивается с результатом который ввел юзер...

З.Ы ето я как вы уже наверное догадались пытаюсь сделат ьаутентификацию спримитивным шифрованием...

Прошу сильно н епинать ибо весь день подымал и настраивал сервак по етому мысли в голове разные и никак не о делфи...приходится нстраиватся...

[Гриха]

Вот что нарыл(DelphiWorld), может поможет...
только сам коментировать не буду и сам не проверял...


Как преобразовать String в Binary и наоборот
--------------------------------------------------------------------------------


Автор: Rem



function BinStrToByte(a_sBinStr: string): byte;
var
i: integer;
begin
Result := 0;
for i := 1 to length(a_sBinStr) do
Result := (Result shl 1) or byte(a_sBinStr[i] = '1');
end;

function ByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
for i := 8 downto 1 do
begin
Result[i] := chr($30 + (a_bByte and 1));
a_bByte := a_bByte shr 1;
end;
end;

// Примечание: вторая функция использует тот факт,
// что в таблице ANSI коды '0' = $30 и '1' = $31

[Zloy_Doomer]

var num,num1: string;
begin
num:= 'qwerty';
num1:= IntToStr(ORD(num);
num:= CHR(num1);
showmessage(num);

Почемуто num возвращает цифры...странно...мож че не правельно???

[DeKot]

Попробуй следующий метод.Вместо Edit использую многострочный Memo.
В Memo грузишь текст любым способом - с клавы,присваиваешь свойству text любой свой текст, или Load с файла.

procedure TForm1.Memo1Chang(Sender: TObject);
var
i: integer;
str1,str2: string;
begin
  str1:= Form1.Memo1.Text;
  str2:= ' ';
  for i:= 1 to length(str1) do
  begin
    str2:= str2 + IntToStr((Ord(str1[i])));
    if str[i] = #13 then str2:= str2 + ' ';
  end;
  Form1.Memo2.Text:= str2;
end;

Любое появление в Memo1 символа отбразится в Memo2 числовым кодом.
Все идот на автомате, не надо считать ни слова.ни буквы.
Результат можно посмотреть здесь:
http://www.programmersforum.ru/showthread.php?t=32419

[mihali4]

var num,num1: string;
begin
num:= 'qwerty';
num1:= IntToStr(ORD(num);
num:= CHR(num1);
showmessage(num);

Почемуто num возвращает цифры...странно...мож че не правельно???

Этот бред вообще ничего возвращать не может, поскольку ORD неприменимо к строке и даст ошибку компиляции, так же, как и CHR.

Ето код писался прямо тут и не проверялся компилятором
Почемуто num возвращает цифры

Ну, и в какой строке написано правдиво?

[Zloy_Doomer]

В числовой код получается переводить без проблем, а вот назад нет...
Если можно то кусочек работающего кода, а то уже низнаю куда дальше рыть...

to mihali4
Ето код писался прямо тут и не проверялся компилятором, так что может содержать ошибки...И ето всеволиш примерный пример...

[DeKot]

Для обратного преобразования что-то так (код не проверял):

procedure TForm1.Memo2Chang(Sender: TObject);
var
i: integer;
str1,str2: string;
begin
  str1:= Form1.Memo2.Text;
  for i:= 1 to length(str1) do
  begin
    str2:= str2 + Сhr(StrToInt(str1[i]));
  end;
  Form1.Memo1.Text:= str2;
end;