Memo1 dakileri Html Olarak Kaydetme

[Misafir]

Arkadaşlar ben Memo1 deki yazıları nasıl html olrak kaydettirebilriim ama şöyle olucak mesela ben memo ya şu kodları ekledim
// bir adet listbox

// alanları doldurun

// mouse listbox içinde hareket ettirin up ve down tuşları gibi çalışıyor..

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True);

end;





Burdaki resim gibi hml oalrak kaydetcek renkleri öneli değil oakdar sadece ana başlık mavi olsun yeter tabi procedure , begin, end; yazılarıda kırmızı olursa iyi olur ama okadar önemli değil sadece ana başlık büyük mavi olsada olur bunu naısl yapabiliriz

2. Sorum ise ben mesela Memo1 e yazdım yazacaklrımı butona basınca Memo1 dei yazınların en üst satırına vede en alt saırına nasıl istediğim yazıları ekleyebilriim mesela ben memo1'e 100 milyon alıcak var yazdım
butona basınca eklicek

Tufan Demir//bu eklencek
100 milyon alıcak var// memoya yazdığım tam ortada kalcak
Bu haftanın hesabı// vede bu
??

[mcihad]

SynEdit Bileşenini kullan Kodbank bu bileşeni kullanıyor zate

Pascal, C++ ,Java, VBasic ...
ve daha birçok dilin kodlarını renklendirebiliyor ayrıca html olarak kaydedebilme özelli var zannedersem

http://synedit.sourceforge.net/download.php

2 soruna cevap

Kod: Tümünü seç

Memo1.Lines.Insert(Satir__No,Eklenecek str);

Insert komutu zannedersem işini görür

[Misafir]

Memo1.Lines.Insert(Satir__No,Eklenecek str); Satır_no derken ben numarasına göre istemiyorum Memoye yazdım yazacaklarımı butona basınca benim yazılarımın bi en üstüne eklicek istediğim yazıyı bide en altına eklicek gine istediğim yazıyı numarayla işim yok benim yani yazıcağım yazının kaç satır olacağı nerden belli yazının son satırını kendi bulmalı hatta bulmasına gerek yok zaten en sona eklicem bide en başa istediğm yazıyı

[MicroChip]

Html taglarına göz atıp ne işe yaradıklarını biliyorsan memodaki veya başka bir yerdeki metni düz txt dosyası gibi kaydedeceksin tabi gerekli yerlere html taglarını koyarak. bu arada da kaydederken dosya uzantısını .htm vermen gerekir..

saygılar

[Misafir]

Okadarını bende biliyorum zaten bende bunu naıl yapacağımı söyliyorum memonun en üst ve en alt satırına istediğim yazıyı eklemeyi bulsam zaten yapacam bende ? gerekli yerlere ekleyin diyorsunuz ben gerekli yerlere nasaıl eklicem sorun orsa hangi kod ile eklicem

[MicroChip]

istediğin kod bu sanırım...

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
    i:integer;
begin
    i:=memo1.Lines.Count;   //memodaki toplam satır sayısını alıyorsun
    Memo1.Lines.Insert(0,'ahmet');
    Memo1.Lines.Insert(i+1,'ceylan');
end;

saygılar

[husonet]

Ahmet'in dediği mantıklı HTML taglarını öğrenirsen bileşene gerek kalmadan bu işi yaparsın.

Algoritmanı oluştururken Satır arası boşluklarını Prograf gibi önemli noktaları değişkenlere atayacaksın. Ve bir döngü ile Tag'ları kayıt sırasında text (htm) dosyana kaydedeceksin. Burada önemli olan tagları bilmen


Mesala ilk Yazılan satır ile ikinci yazılan satır arasında 5 satır boşluk var buraya 5 satır <br> tagının kayıt esnasında ilave edeceksin.

Kolay Gelsin...

[Misafir]

Bi sorumda daha var memo1 deki her satırın başına <p> sonunada </p>
nasıl eklettiririm şöyle olcak
selam nasılsınız // ben böyle yazcam butona bsaınca aşşağıdaki gibi olucak ama bütün satırlarda olucak bu nasıl yapabiliriz ??
<p>selam nasılsınız</p>

[husonet]

Bakın daha basit bir yolu varmı bilemiyorum aklıma gelen ilk şeyi yazıyorum.

Bir döngü oluşturun. Döngü içinde satırları sırayla bir değişkene atayın ve değişkenin başına ve sonuna istediğiniz karakterleri ekleyip tekrar memo nun ilgili satırına yapıştırın. Her şey sizde bitiyor Algoritma olayı.

Kolay Gelsin...

[Misafir]

1-Benim öğrenmem açısından Hüseyin beyin söylediğine bi örnek verebilirmisiniz döngü?? olabilir sanırım Hüseyin bey'in dediği
2-Bi sorumda daha var memo1 deki her satırın başına <p> sonunada </p>
nasıl eklettiririm şöyle olcak
selam nasılsınız // ben böyle yazcam butona bsaınca aşşağıdaki gibi olucak ama bütün satırlarda olucak bu nasıl yapabiliriz ??
<p>selam nasılsınız</p>

3-ben örnek bişey yapdım olmadı ama beni idare eder aşşğıya url yazıyorum bakın bi
http://www.plusgenc.net/zemin/deneme.htm
buda Kodları

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    i:=memo1.Lines.Count;   //memodaki toplam satır sayısını alıyorsun
    Memo1.Lines.Insert(0,'<html>');
    Memo1.Lines.Insert(1,'<head>');
    Memo1.Lines.Insert(2,'<meta http-equiv="Content-Language" content="tr">');
    Memo1.Lines.Insert(3,'<meta name="GENERATOR" content="Microsoft FrontPage 5.0">');
    Memo1.Lines.Insert(4,'<meta name="ProgId" content="FrontPage.Editor.Document">');
    Memo1.Lines.Insert(5,'<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">');
    Memo1.Lines.Insert(6,'<title>HackkinG&nbsp; Programs Delphi Kodları</title>');
    Memo1.Lines.Insert(7,'</head>');
    Memo1.Lines.Insert(8,'<body>');
    Memo1.Lines.Insert(9,'<p><font color="#0000FF" size="6"><b>HackkinG&nbsp; Programs Delphi Kodları</b></font></p>');
    Memo1.Lines.Insert(10,'<p>&nbsp;</p>');
     Button2.Click;

end;

procedure TForm1.Button2Click(Sender: TObject);
var 
    i:integer;
begin
i:=memo1.Lines.Count;
    Memo1.Lines.Insert(i+0,'</html>');
   Memo1.Lines.Insert(i+0,'</body>');


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('c:\deneme.htm');
end;

end.

[husonet]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var 
    i:integer;
    Str, Str1:String;
begin
    i := 0;
    While i < memo1.Lines.Count do
    Begin
        Str := Memo1.Lines.Strings[i];
        if Str <> '' Then
        Begin
            Str1 := '<p>';
            Str := Str1 + Str + '</p>';
            ShowMessage(str);
            Memo1.Lines.Delete(i); 
            Memo1.Lines.Insert(i, str);
        End;
        i := i + 1;
    End;
end;

Gerisi Sana Kalmış

Kolay Gelsin...

[husonet]

Vemiş olduğun Linkteki 'HackkinG Programs Delphi Kodları' Yazıyı beyenmedim ne manada yazdın bilmiyorum ama Bir delphi ci ye bu tip bir sayfa başlığı yakışmıyor.

[MicroChip]

Kardeş sen programı bize yaptırıyosun ya...
ben yazacaktım ki ikinci istediğini de hüseyin cevaplamış

sonra hüseyin in dediği gibi hacking macking bırak bu işleri. Ha unutmadan hacker olan adam da ben hacking yaparım hackerım felan vs. demez. çok ayıp

[FrontPage]

o zaman ben hacker im

Kardeş seni bu davranışından dolayı kınıyorum. Delphi ile ilgilenen bir kişinin hack ile işi olamaz. Aynı şekilde hack ile ilgilenen bi adamın (bayanda olabilir) hack ile işi olamaz. Olursa eğer o bizden değildir.

Ben böyle bir şeyi kabul etmiyorum.

[Misafir]

1-Benim 4 yıllık hacker geçmişliğim var benim asıl nickim bütün sitelerde HackkinG dir
2-Hacker'ım diye delphi ile uğraşamazmıyım
3-HackkinG Program's yazarlen sadece o bir örnekti benim hackerlığı bırakalı 1 yıl oldu
4-ben orayı hacklerim burayı hacklerim ben hackerım falan demedim lütfen kendiniz uydurup bilip billemden mesaj atmayınız benim bu söyledikleriniz aklımndan bile geçmemişti kendi kendiniz hackerlık davasını çıkardınız yoksa ben hacker sözünden bile bahstemedim şimdiye kadar şuan hackerlık falan yapmıyorum ben ama o nick hoşuma gittiği için vede beni herkes o nick ile tanıdığı için o nicki kullanıyorum bundada bir kusur görmeiyorum