Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: Zeichen in Memo ersetzen
23. Feb 2008, 10:04
Ganz einfach: der erste Parameter gibt den "Start" an, der 2. die Länge.
Delphi-Quellcode:
var sText, Teil1, Teil2: string;
begin
sText := 'Dies ist ein String';
Teil1 := Copy(sText,1,8); //ab dem ersten Zeichen 8 Zeichen kopieren
Teil2 := Copy(sText,9,Length(sText)); //ab dem 9. Zeichen den ganzen Rest
ShowMessage(Teil1);
ShowMessage(Teil2);
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|