Forum: Sonstige Fragen zu Delphi
by DeddyH,
26. Okt 2009
BeginUpdate und EndUpdate sind Methoden von TStrings. Welche Property Deiner Listboxen sind TStrings? Könnte das Items sein? Wie muss die Zeile also lauten?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
26. Okt 2009
Du musst Begin-/EndUpdate auf die Listen anwenden, die verändert werden. SucheD ist das nicht :zwinker:
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Dann musst Du eben nachschauen, ob der gesuchte String enthalten ist. Sei doch mal etwas kreativ.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Geh doch einfach in einer Schleife durch und schau, ob die aktuelle Zeile mit der gesuchten Zeichenfolge beginnt. Viel anders macht IndexOf das auch nicht, außer dass die komplette Zeichenfolge verglichen wird.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
An einen Fehler glaub ich nicht, aber bei so großen Datenmengen ist StringReplace wohl nicht das Wahre. Stimmt Deine Datei denn jetzt auch?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Das macht auf jeden Fall Sinn, sonst wird die Datei "etwas" größer :lol:
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
:shock: Schau mal, was Du hier machst.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Dazu müsstest Du Dir Dein eigenes StringReplace schreiben.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Eine Stunde erscheint mir auch bei 7,5 MB etwas viel. Vielleicht solltest Du mal je Schritt eine Meldung ausgeben lassen, damit Du siehst, was da so lange dauert.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
In Sekunden kann ich Dir das nicht sagen, das hängt ja wohl auch von der Rechnerkonfiguration ab, aber ich kann mir vorstellen, dass das schon einige Zeit braucht.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Dann definier Dir die Konstante einfach.const sLineBreak = #13#10;
Forum: Sonstige Fragen zu Delphi
by DeddyH,
25. Okt 2009
Da wäre StringReplace eine einfache Option.var
SL:TStringlist;
begin
if FileExists('C:\Users\Alt.txt') then
begin
SL := TStringList.Create;
try
SL.LoadFromFile('C:\Users\Alt.txt');//Datei wird in die Liste geladen
SL.Text := StringReplace(SL.Text,' :: ',sLineBreak,);
SL.SaveToFile('C:\Users\Neu.txt');