problem mit quelltext per idhttp.get

[shareholder]

mein code

Delphi-Quellcode:

Memo1.text := idhttp1.get(Edit1.Text);

hole, ich den code über Ansicht->Quelltext im Internet Explorer sieht er etwa so aus:

Code:

                  </FONT>
               </TD>
            </TR>
            <TR>
                 <TD VALIGN="TOP" ALIGN="RIGHT">
                  -
               </TD>
               <TD>
                  <FONT SIZE=-1>
                  <A HREF="http://www.sprachreisen.eu.com/">
                     Sprachreisen</A>
                  </FONT>
               </TD>
            </TR>
            <TR>
                 <TD VALIGN="TOP" ALIGN="RIGHT">

wie er in meinem memo aussieht, seht ihr siehe anhang:

http://www.delphipraxis.com/download.php?id=4039

Was kann ich tun, das er "wie ursprünglich formatiert auch in meinem memo ist" :wall:

[Luckie]

Unter Linux ist ein Zeilenvorschub #10 unter Window #13#10. Ich würde mal tippen, dass dein Memo nicht mit den Zeilenvorschub von Linux klar kommt. Lösung: ersetze alle #10 durch #13#10.

[shareholder]

danke, funzt aber leider nicht
hab es nun so geschrieben

Delphi-Quellcode:

// Quelltext fuer Windows-Anzeige formatieren
procedure TForm1.Format1310;
var i: integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  StringReplace(Memo1.Lines[i], #10, #13#10, [rfReplaceAll]);
end;

funktioniert aber nicht ! :gruebel:

[stoxx]

Zitat:

Zitat von shareholder

danke, funzt aber leider nicht
hab es nun so geschrieben

Delphi-Quellcode:

// Quelltext fuer Windows-Anzeige formatieren
procedure TForm1.Format1310;
var i: integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  StringReplace(Memo1.Lines[i], #10, #13#10, [rfReplaceAll]);
end;

funktioniert aber nicht ! :gruebel:

kleiner Schönheitsfehler

memo1.lines[i] := StringReplace(Memo1.Lines[i], #10, #13#10, [rfReplaceAll]);

oder mit einem mal:

oder memo1.lines.text := StringReplace(Memo1.Lines.text, #10, #13#10, [rfReplaceAll]);


oder Du holst Dir Jedi.
deren strReplace wird so aufgerufen, wie Du es hast, ist aber schneller.

[shareholder]

danke schonmal :-D

Code:

memo1.lines[i] := ... // Du hast Recht !! :)

das ganze funkt aber immer noch nicht ! :gruebel: :(

[shareholder]

Rückmeldung, es funktioniert, allerdings, wie gesagt nur sehr sehr langsam bei größeren texten ! :-D

mein fehler lag daran, das der code nicht ausgeführt wurde, da er noch vorher durch exit; (falsche progammierung) beendet wurde.


THANX

[stoxx]

Zitat:

Zitat von shareholder

Rückmeldung, es funktioniert, allerdings, wie gesagt nur sehr sehr langsam bei größeren texten ! :-D

mein fehler lag daran, das der code nicht ausgeführt wurde, da er noch vorher durch exit; (falsche progammierung) beendet wurde.


THANX

wie gesagt, die JEDI JCL ist schneller


http://www.delphi-source.de/jedi/jcl/
http://www.delphi-jedi.org/

darin enthalten eine Funktion strReplace.

Meine Bearbeitungen einer 60 MB grossen Text Datei hatten mit stringReplace
1 Min 10 Sekunden gebraucht.
mit einem einfach ersetzen des Befehls StrReplace nur noch 30 Sekunden.
Und nun verzicht auf Tstringlist nur noch 10 Sekunden :tongue:

aber das trifft für Dich nicht zu (ánderer Anwendungsfall)