Как привязать вводимый символ к строке?

[Erlotaza]

Например, когда хочу сказать программе, что str - строка в строке Edit2, то:
str:=edit2.Text;
А вот когда с символом, то пишет о несовмест.. типов. Как правильно записать?
Хочу чтобы переменная ch (типа char, так как это символ) отвечала за вводимый в будущем символ в строку Edit2.

[Stilet]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var ch:char;
begin
 ch:=key // Это символ который должен попасть в свойство Text.
end;

Событие OnKeyPress

[Erlotaza]

Спасибо.
Я сейчас делаю ДЗ по текстовым файлам в Делфи, и мне нужно чтобы осуществлялся поиск введенного символа по файлу. Но тут такой нюанс: когда я копирую слово и нажимаю "поиск", то находит, а когда вручную, то нет)
Вот код:

procedure TForm2.Button2Click(Sender: TObject);
var str:string; i,n:integer; ch:char;
begin
str:=edit2.Text;
n:=Memo1.Lines.Count;
for i:=0 to (n-1) do
begin
if memo1.Lines[i]=str then
begin
Memo1.SelText; Memo1.SetFocus;      end;
if ch=memo1.Lines[i] then
Memo1.SelStart:=i; Memo1.SelLength:=length(str); Memo1.SetFocus;
end;
end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
var ch:char;
begin
ch:=key;   
end;

end.

Что не так?

[Прячущая Хвост]

Сообщение от Erlotaza

Спасибо.
Я сейчас делаю ДЗ по текстовым файлам в Делфи, и мне нужно чтобы осуществлялся поиск введенного символа по файлу. Но тут такой нюанс: когда я копирую слово и нажимаю "поиск", то находит, а когда вручную, то нет)
Вот код:
procedure TForm2.Button2Click(Sender: TObject);
var str:string; i,n:integer; ch:char;
begin
str:=edit2.Text;
n:=Memo1.Lines.Count;
for i:=0 to (n-1) do
begin
if memo1.Lines[i]=str then
begin
Memo1.SelText; Memo1.SetFocus; end;
if ch=memo1.Lines[i] then
Memo1.SelStart:=i; Memo1.SelLength:=length(str); Memo1.SetFocus;
end;
end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
var ch:char;
begin
ch:=key;
end;

end.
Что не так?

Сначала увлеклась, написала нахождение слова. С символом проще. Не понимаю, правда, зачем вы находите длину текста в edit'e, если найти нужно символ. Мне переменные понадобились только для счётчика.

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, k, m: byte;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
      for j:= 1 to Length(Memo1.Lines[i]) do
        if Memo1.Lines[i][j] = Edit1.Text[1] then
          begin
            m:= 0;
            if i > 0 then // т.к. SelStart отсчитывает количество символов от начала, то их нужно посчитать
              for k:= 0 to i-1 do
                m:= m + Length(Memo1.Lines[k]) + 2;
            Memo1.SelStart:= m+j-1;
            Memo1.SelLength:= 1;
            Memo1.SetFocus;
            exit; // если искомых символов больше одного, найдёт первый, елси убрать exit, будет находить последний искомый символ
          end;

Memo1.SelText - это свойство, а не процедура, поэтому строка кода

if memo1.Lines[i] = str then
begin Memo1.SelText; Memo1.SetFocus; end;

на мой взгляд, ничего кроме фокуса на memo Вам не принесёт. И зачем Вы сравнивали строку memo и содержание edit? Предполагается, что в каждой строке по одному символу?

[Stilet]

чтобы осуществлялся поиск введенного символа по файлу.

Ты зачем в кнопку упихнула код поиска?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 // Говорим что в наш эдит можно ввести только один смвол
 Edit1.MaxLength:=1;
//Загружаем файл в Мемо
 Memo1.Lines.LoadFromFile(файл);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 with Memo1 do begin
// Находим введенный символ
   SelStart:=pos(key,Lines.Text)-1;
   SelLength:=1;
// И типа подсвечивая перескакиваем на него.
   SetFocus;
 end;
end;

end.

Направление понятно?

[Erlotaza]

Сообщение от Stilet

Ты зачем в кнопку упихнула код поиска?

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

[Stilet]

мне таки надо слово искать а не символ..)

Значит обработка должна быть в событии OnChange, и мой код будет выгдялеть чуть по другому:

 with Memo1 do begin
// Находим введенный символ
   SelStart:=pos(TEdit(Sender).Text,Lines.Text)-1;
   SelLength:=length(TEdit(Sender).Text);
// И типа подсвечивая перескакиваем на него.
   SetFocus;
 end;

[Erlotaza]

Подскажите пожалуйста ПОЛЕЗНУЮ литературу по Делфи, а то я плохо знаю, не знаю например что такое POS... (ну я то гляну уже), а книгу какую лучше почитать потому что их очень много. Какая проверенная?

[Stilet]

Не бывает такого чтоб в одной книге были все ответы.
Нужно обязательно изучать несколько видов литературы.
И дружить с хелпом.

[chertovich]

В событии OnChange

S := Edit1.Text

Данную строку можно обрабатывать как массив char-ов