Hallo,
ich möchte Textdateien in einen String einlesen, und dann bestimmte Zeichenketten in diesem String ersetzen.
Das klappt auch soweit ganz gut, nur muss ich mir noch überlegen wie ich das ganze in eine Schleife einbaue falls die Zeichenkette öfters vorkommt.
Da das einlesen in einen String bei großen Textdateien dauert, möchte ich den Fortschritt am besten in einer Progressbar anzeigen lassen.
Nur wie mache ich das?
Bisher lese ich die Textdateien so ein:
Delphi-Quellcode:
function File2String(FileName: ansistring): ansistring;
var
MyStream: TFileStream;
MyString: ansistring;
begin
MyStream := TFileStream.Create(FileName, fmOpenRead
or fmShareDenyNone);
try
MyStream.Position := 0;
SetLength(MyString, MyStream.Size);
MyStream.ReadBuffer(Pointer(MyString)^, MyStream.Size);
finally
MyStream.Free;
end;
Result := MyString;
end;
Funktion hab ich von exemod geklaut.
Ich möchte nun den Fortschritt des Einlesevorgangs in einer Progressbar darstellen.
Nur wie?
Danke