Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
3. Mär 2006
So, hier der Source (ist doch etwas umfangreicher geworden)
procedure FileReplaceChars(AFilename: String);
const
GBufSize = 500000;
//Datei durchgehen und umlaute suchen um neue Dateigröße zu berechnen
function LGetNewSize(AStream: TStream): Int64;
var LGiveback: Int64;
LBytes,
LCount : Integer;
Forum: Object-Pascal / Delphi-Language
Delphi
by SirThornberry,
3. Mär 2006
duch was willst du die Umlaute ersetzen? "ü" durch "ue" oder durch etwas anderes. Am einfachsten wäre es wenn du "Ü" durch ein zeischen ersetzen willst welches genau so lang ist.
Aufgrund der Dateigröße ist es am sinnvollsten direkt auf der Festplatte zu arbeiten. Wenn zum Beispiel "ü" durch mehr als 1 zeischen ersetzt werden soll wäre es wohl am sinnvollsten erst alle umlaute zu zählen (ohne...