Einzelnen Beitrag anzeigen

Benutzerbild von Trouble_Maker
Trouble_Maker

Registriert seit: 30. Jan 2003
244 Beiträge
 
Delphi 6 Personal
 
#7

Re: Code Excess - Freeware für euch :)

  Alt 7. Sep 2003, 21:29
Hiho cYaONE
also ich hab da ein kleines Problem mit deinem Tool:
Ich bekomme alle Tips etc. noch als Quelltext einer HTMl-Datei angezeit !!! Also nicht so wie bei dir auf dem Bild.

Beispiel:
Delphi-Quellcode:
<html> <head> <title>Textdatei zum lesen öffnen <body> <font
size="2">Textdateien können mit folgendem Code zum lesen geöffnet
werden:

 <table width="90%" cellspacing="1"
cellpadding="3" border="0" align="center"> <tr> <td><font size="2"
color="#003399">[b]Source: <tr> <td bgcolor="#D1D7DC">
<table border="0" cellpadding="3" cellspacing="0"
width="100%"><tr> <td width="100%" bgcolor="#FAFAFA">
<pre><font size="3"> [b]procedure TForm1.Button1Click(Sender:
TObject); [b]var tf: TextFile; s: [b]string; [b]begin AssignFile(tf,
'<font color="#000080">C:/Textdatei.txt'); Reset(tf);
 ReadLn(s);

 ShowMessage(s); CloseFile(tf); [b]end;

 <font
size="2"> cYa

 <by cYaONE>
bisschen komisch oder ?!?

cu Trouble_Maker
  Mit Zitat antworten Zitat