Delphi an das Ende eines memo's einen doppelpunkt setzen

[haentschman]

Zitat:

Ist aber völliger Schwachsinn!

... hast du den Schwachsinn mal ausprobiert ? Was kommt dabei raus ?

[lbccaleb]

Das ist total OFF-Topic, aber total geil deswegen muss das mal gesagt werden^^

Zitat:

ich möchte eine Liste abarbyten.

[Lyan]

Zitat von haentschman:

Zitat:

Ist aber völliger Schwachsinn!

... hast du den Schwachsinn mal ausprobiert ? Was kommt dabei raus ?

Bei paar tausend Zeilen, oder auch 1 Million Zeilen, kann das dann schon hängen mit einer Schleife

Habs mit 1565 Zeilen versucht, dauert ewig!

[markus5766h]

'ne TStringList nehmen
abarbeiten
und dann in's TMemo kopieren

sollte einiges schneller sein

[lbccaleb]

Füge diese Zeilen ein:

Delphi-Quellcode:

Memo1.Lines.BeginUpdate

... //Bearbeitung ...

Memo1.Lines.EndUpdate;

[Lyan]

Zitat von lbccaleb:

Füge diese Zeilen ein:

Delphi-Quellcode:

Memo1.Lines.BeginUpdate

... //Bearbeitung ...

Memo1.Lines.EndUpdate;

Habe es nun so gemacht:

Code:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  progressbar1.position := 0;
  for i := 1 to memo1.Lines.count do
  begin
    Memo1.Lines.BeginUpdate;
    memo1.Lines[i] := memo1.Lines[i] + ':';
    progressbar1.position := i;
    application.ProcessMessages;
    Memo1.Lines.EndUpdate;
  end;
end;

Gibts sonst noch andere methoden um eine liste abzuarbyten?
die performance würde ich schon gerne erhöhen.

MfG

[implementation]

Zitat von Lyan:

Code:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  progressbar1.position := 0;
  for i := 1 to memo1.Lines.count do
  begin
    Memo1.Lines.BeginUpdate;
    memo1.Lines[i] := memo1.Lines[i] + ':';
    progressbar1.position := i;
    application.ProcessMessages;
    Memo1.Lines.EndUpdate;
  end;
end;

Nimm BeginUpdate und EndUpdate mal aus der Schleife raus und setz sie außerhalb:

Delphi-Quellcode:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  progressbar1.position := 0;
  Memo1.Lines.BeginUpdate;
  for i := 1 to memo1.Lines.count do
  begin
    memo1.Lines[i] := memo1.Lines[i] + ':';
    progressbar1.position := i;
    application.ProcessMessages;
  end;
  Memo1.Lines.EndUpdate;
end;

[Klaus01]

Hallo,

BeginUpdate vor der Schleife
EndUpdate noch der Schleife.

Grüße
Klaus

[himitsu]

Erstmal ist es totaler "Schachsinn" überhaupt soviele Zeilen in einem Memo verarbeiten zu wollen.
Wer will sich das alles ansehn?

TStringList geht schneller, da hier jede Zeile "einzeln" ist und damit alles schnell verarbeitet wird.
(Memo.Text > StringList.Text > die StringList verarbeiten > StringList.Text > Memo.Text)

TMemo ist nunmal nicht für eine massenhafte String-Verarbeitung geeignet, denn dort befindet sich alles in einem Speicherblock, also für das Einfügen eines Zeichens am Anfang werden alle nachfolgenden Zeichen verschoben.
und bei 1 Mio. Zeilen muß da viel verschoben werden.

Ohne BeginUpdate wird dabei auch noch jedesmal die GUI geupdatet, was dann nochmals massig Rechenleistung verbrät.

usw.

[Lyan]

Also um mal kurz zu erwähnen was ich machen möchte:
Das Programm wird ein FTP-Checker.

Man soll eine Liste angeben können in folgendem Format:

IP:USERASS

Beispiel:

Code:

888.888.888:username:passwort
533.45.2342.3:usr2:pw123
223.234.123.3:usss:pwww

Ich versuche momentan halt anhand des doppelpunktes die IP, den USERNAME und das PASSWORT auseinander zu halten.

Problematik liegt halt an meinen Kenntnissen. Ich zeige euch mal wie ichs mit meinen wenigen Kenntnissen versucht habe zu Lösen:

Also im Idealfall sollte mein Kod so aussehen:

Code:

888.888.888:username:passwort:
533.45.2342.3:usr2:pw123:
223.234.123.3:usss:pwww:

Wenn ich davon ausgehe, dann läuft mein Prog. so:

Ich entferne zunächst mal "#$D#$A" in dem Memo mit stringreplace und schreibe den neuen Inhalt in einen String.
Dieser String sieht dann ja so aus:

Code:

888.888.888:username:passwort:533.45.2342.3:usr2:pw123:223.234.123.3:usss:pwww:

Nun ermittle ich mit Pos() den ersten Doppelpunkt und kopiere mit Copy() die IP (also die "888.888.888") und schreibe sie in meine Variable (sIP).

Nun lösche ich per Delete() die IP und den dazugehörigen Doppelpunkt (888.888.888.

Ja und in einem Schleifendurchgang werden immer "IP,USERNAME,PASSWORD" ermittelt und auf Verbindung getestet. Wenn eine Verbindung möglich war, so wird in eine Strinlist die Daten hinzugefügt.

Also "Strlist.add(IP+USER+PASS+#13#10);

Nun das Problem:

Wenn meine Liste nun so aussehen würde:

Code:

888.888.888:username:passwort
533.45.2342.3:usr2:pw123
223.234.123.3:usss:pwww

Dann muss ich ja noch Doppelpunkte setzen (vorher).
Und mit der eben genannten Methode, nerven wieder diese "#$D#$A".
Hat jemand eine Idee wie ich die Liste in mein Idealformat bekomme?
Oder weiß jemand, wie ich sowas vlt. auf eine ganz andere, viel bessere Art und Weise Lösen könnte?

MfG