Цветной текст в Edit

[SolovejK]

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

Увидите своими глазами что там есть кроме двойки.

Вылезло - 320D0A. И что это значит?

[northener]

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

Вылезло - 320D0A. И что это значит?

0D0A это символы конца(перевода) строки. Они включаются в свойство Text.

[SolovejK]

Я так полагаю что 2-е число, это моя "2". А первое число "3" откуда?

[northener]

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

Я так полагаю что 2-е число, это моя "2". А первое число "3" откуда?

$32 (32h, 0x32) это код символа "2" в 16-ричной системе счисления.

[SolovejK]

Кто-нибудь проверьте, пожалуйста, код. Может у вас заработает . В файле 111.txt впишите любую цифру от 0 до 10.
Если сравнивать строку не из txt файла, то все прекрасно работает, а с txt ни в какую не хочет.

procedure TForm1.ListBox1Click(Sender: TObject);
var
  t: TStringList;
begin
  t := TStringList.Create;
  t.Text := '';
  t.LoadFromFile('111.txt');
  Edit1.Text := t.Text;
  if ListBox1.Items.Strings[ListBox1.ItemIndex] <> Edit1.Text then
    Edit1.Font.Color := clBlack else Edit1.Font.Color := clRed;
  t.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 10 do
    ListBox1.Items.Strings[i] := IntToStr(i);
end;

[Аватар]

И не сравнится никогда, почему уже сказали - в Text кроме цифр есть и символы перевода каретки и строк. Уберите их, например так (если в файле только одна строка)

Edit1.Text:=Trim(t.Text);

[SolovejK]

Почему-то думал, что дельфи сам его отсекает при сравнении. Спс за помощь.