pabloe9k,
Cita:
Empezado por pabloe9k
...Pasar una cadena string (+ EBML head#$D#$A|+ EBML version: 1#$D#$A|+ EBML read version: 1#$D#$A|+ EBML maximum ID length: 4#$D#$A) a una lista TStringList según delimitador (#$D#$A)....
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
InputString = '+ EBML head' + #$D#$A +
'EBML version: 1' + #$D#$A +
'EBML read version: 1' + #$D#$A +
'|+ EBML maximum ID length: 4' + #$D#$A;
var
SL : TStringList;
i : Integer;
begin
SL := TStringList.Create;
ExtractStrings([#$D,#$A],[],InputString,SL);
for i := 0 to SL.Count - 1 do
ShowMessage(SL[i]);
SL.Free;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
carga el texto contenido en la variable InputString a un TStringList usando como delimitador #$D#$A y muestra cada uno de los elementos individuales.
Revisa esta información:
Espero sea útil
Nelson.