Проблема с русской кодировкой

@LazarusNub · Регистрация: 03.10.2014

Студворк — интернет-сервис помощи студентам

Народ реально незнаю как исправить
Тема такая (опишу в кратце) делаю поиск в файле одного символа , вывожу в лейбл и вуаля выдается карякуля.
Скрин и код прилагаю.
Просто объясните на примере.
(П.С. В коде много фикалий.)

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,URLMon, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Button2: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Button3: TButton;
    Label1: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
 
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
f:TextFile;
s:string;
 
implementation
 
{$R *.dfm}
 
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFile),0,nil)=0;
except
Result := False;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
DownloadFile('http://www.yandex.ru/', 'C:/1.txt');
end;
  
 
function parse(str, str2, ob: string): string;
var
len: integer;
begin
  len := length(str);
  result := Copy(ob, pos(str, ob) + len, pos(str2, ob) - pos(str, ob) - len);
end;
 
{procedure TForm1.Button2Click(Sender: TObject);
 
 
 
//memo1.text:=;
edit1.Text:=parse('<!DOCTYPE', '<html class=', 'Memo1.Lines');
end;
 
 end; }
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:/1.txt');
Memo1.Text :=Utf8ToAnsi(Memo1.Text);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
f:TextFile;
s:string;
begin
  AssignFile(f,'C:/1.txt');
  reset(f);
 // s:=memo1.Text;
  while not eof(f)  and (Pos('å',s)=0) do
begin
 
  readln(f,s);
 
  if pos('å',memo1.text)<>0 then Label1.Caption:=   copy (s,pos('å',memo1.text),1);
end;
 CloseFile(f);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Caption:=parse('"b-link_black_novisit">','áàëëà</a></span>', Memo1.Text);
end;
 
end.

murderer · 19.03.2015, 06:05

Что за кодировка? Переведи в юникод перед выводом в Label.

@LazarusNub · 19.03.2015, 08:05 **[ТС]**

Увы нет. Сначала была проблема с выводом мемо но все решилось благодаря

Delphi

1	Memo1.Text :=Utf8ToAnsi(Memo1.Text);

Теперь же проблема с поиском по мемо и выводом в лейбл
Незнаю куда и что прописать чтобы наконецтаки исправить.

Добавлено через 52 минуты
Всем спасибо сам разобрался

murderer 4151 / 1805 / 213 Регистрация: 06.10.2010 Сообщений: 4,036
	19.03.2015, 06:05	2
	Что за кодировка? Переведи в юникод перед выводом в Label. 0

	19.03.2015, 08:05

Опции темы