HTML редактор на Delhpi7. - Общие вопросы Delphi - Страница 3

CraZZy RabbIt · 17.04.2009, 18:23

2 вопрос
попробуй так -

Код:

<img src="image/1.jpg" alt="">

Neeter · 17.04.2009, 18:26

Цитата:

Сообщение от CraZZy RabbIt

2 вопрос
попробуй так -

Код:

<img src="image/1.jpg" alt="">

Вообще-то все пути в windows прописываются через разделитель \ а не /

Alex2009 · 18.04.2009, 14:26

Люди а как зделать так вот я обьявил константы

Код HTML:

const
 a='<html>'+#13+'<head>'+#13+'<title> Мой WEB документ </title>'+#13+'<Meta name="Alex" content="Coder">'+#13+
 '<Meta name="Description" content="">'+#13'</head>';
 b='</body>'+#13+'</html>';// HTML шаблон
Мне нужно чтобы при открытии программы в Мемо бл такой код
<html>

<head>
<title> Мой WEB документ </title>
<Meta name="Alex" content="Coder">
</head>

<body>

</body>

</html>

Neeter · 18.04.2009, 16:21

Надо вместо

Код:

a='<html>'+#13+'<head>'+#13+'<title> Мой WEB документ </title>'+#13+'<Meta name="Alex" content="Coder">'+#13+
'<Meta name="Description" content="">'+#13'</head>';
b='</body>'+#13+'</html>';

написать

Код:

  a='<html>'+#13+#10+'<head>'+#13+#10+'<title> Мой WEB документ </title>'+#13+#10+'<Meta name="Alex" content="Coder">'+#13+#10+
    '<Meta name="Description" content="">'+#13+#10+'</head>';
  b='</body>'+#13+#10+'</html>';

и при создании формы(onCreate)

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Lines.Clear;
 Memo1.Lines.Add(a);
 Memo1.Lines.Add(b);
end;

Да, и еще, Алекс, проверь личные сообщения

Levsha100 · 18.04.2009, 16:59

Когда то делал нечто подобное, может поможет

Код:

unit Html;

interface

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

type
  TMain = class(TForm)
    Buf: TMemo;
    SaveBtn: TButton;
    SaveDialog: TSaveDialog;
    Button1: TButton;
    procedure SaveBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

{$R *.dfm}

procedure Start(BGColor : string);
begin
Main.Buf.Lines.Add('<HTML>');
Main.Buf.Lines.Add('<HEAD>');
Main.Buf.Lines.Add('<TITLE>'+'Title'+'</TITLE>');
Main.Buf.Lines.Add('</HEAD>');
Main.Buf.Lines.Add('<BODY '+'bgcolor="#'+BGColor+'"'+' >');
end;

procedure Finis();
begin
Main.Buf.Lines.Add('</BODY>');
Main.Buf.Lines.Add('</HTML>');
end;

procedure TMain.SaveBtnClick(Sender: TObject);
var
path : string;
begin
 if SaveDialog.Execute then
 begin
  path :=  SaveDialog.FileName;

  if (Length(path)-Pos('.html',path)) = Length(path) then
   Buf.Lines.SaveToFile(path+'.html')
  else
   Buf.Lines.SaveToFile(path);
 end;
end;

procedure Txt(t:string);
begin
 Main.Buf.Lines.Add(' '+t+' ');
end;
procedure DivS_color(Color : string);
begin
 Main.Buf.Lines.Add('<div style="color: '+Color+';">');
end;
procedure DivE;
begin
 Main.Buf.Lines.Add('</div>');
end;
procedure TableS(Color:String;Border:byte);
begin
Main.Buf.Lines.Add('<table bgcolor="#'+Color+'" BORDER="'+IntToStr(Border)+'"  cellpadding=5 cellspacing=5 width=100% height=100%>');
end;
procedure TableE;
begin
Main.Buf.Lines.Add('<table>');
end;
procedure TD;
begin
Main.Buf.Lines.Add('<TD>');
end;
procedure TDe;
begin
Main.Buf.Lines.Add('</TD>');
end;
procedure TR;
begin
Main.Buf.Lines.Add('<TR>');
end;
procedure TRe;
begin
Main.Buf.Lines.Add('</TR>');
end;
//------------------------------------------------------------------------------


procedure TMain.Button1Click(Sender: TObject);
begin
Start('ff0000');



Finis;
end;


end.

Alex2009 · 18.04.2009, 17:01

За ответ те +

Всем спосибо за помощь

Stilet · 23.04.2009, 12:45

Сколько можно флудить?
Для личной переписки есть другие средства.

17.04.2009, 18:23	#21
CraZZy RabbIt Форумчанин Регистрация: 16.02.2009 Сообщений: 172	2 вопрос попробуй так - Код: `<img src="image/1.jpg" alt="">`

18.04.2009, 16:21	#24
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Надо вместо Код: `a='<html>'+#13+'<head>'+#13+'<title> Мой WEB документ </title>'+#13+'<Meta name="Alex" content="Coder">'+#13+ '<Meta name="Description" content="">'+#13'</head>'; b='</body>'+#13+'</html>';` написать Код: `a='<html>'+#13+#10+'<head>'+#13+#10+'<title> Мой WEB документ </title>'+#13+#10+'<Meta name="Alex" content="Coder">'+#13+#10+ '<Meta name="Description" content="">'+#13+#10+'</head>'; b='</body>'+#13+#10+'</html>';` и при создании формы(onCreate) Код: `procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.Clear; Memo1.Lines.Add(a); Memo1.Lines.Add(b); end;` Да, и еще, Алекс, проверь личные сообщения Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Последний раз редактировалось Neeter; 18.04.2009 в 16:29.

18.04.2009, 17:01	#26
Alex2009 Proger Man Форумчанин Регистрация: 07.03.2009 Сообщений: 584	За ответ те + Всем спосибо за помощь ShowMessage('Добро пожаловать!'); Последний раз редактировалось Stilet; 23.04.2009 в 12:40.

23.04.2009, 12:45	#27
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Сколько можно флудить? Для личной переписки есть другие средства. I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
HTML веб редактор	dr.Chas	Софт	7	17.03.2009 14:57
HTML редактор	Alex2009	Помощь студентам	3	07.03.2009 15:27
HTML-редактор для Delphi	Roman_YRV	Работа с сетью в Delphi	1	10.10.2008 17:59
Редактор html страниц	Sanek_ntsk	Софт	14	13.02.2008 08:15
редактор	MadDog__	Общие вопросы C/C++	2	03.10.2007 12:49