Разделить строкуDelphi , Синтаксис , Текст и СтрокиРазделить строку
Оформил: DeeCo procedure Explode(var a: array of string; Border, S: string); var S2: string; i: Integer; begin i := 0; S2 := S + Border; repeat a[i] := Copy(S2, 0,Pos(Border, S2) - 1); Delete(S2, 1,Length(a[i] + Border)); Inc(i); until S2 = ''; end; // How to use it: // Und hier ein Beispiel zur Verwendung: procedure TForm1.Button1Click(Sender: TObject); var S: string; A: array of String; begin S := 'Ein Text durch Leerzeichen getrennt'; SetLength(A, 10); Explode(A, ' ', S); ShowMessage(A[0] + ' ' + A[1] + ' ' + A[2] + ' ' + A[3] + ' ' + A[4]); end; Статья Разделить строку раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |