problem mit quelltext per idhttp.get

[shareholder]

mein code

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"

[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 !

[stoxx]

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 !

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

Code:

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

das ganze funkt aber immer noch nicht !

[shareholder]

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

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


THANX

[stoxx]

Zitat von shareholder:

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

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

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