escafandra,
Cita:
Empezado por escafandra
...un TStringList parte directamente el texto en las líneas correspondientes sin más código que una simple asignación...
|
Es correcto
Cita:
Empezado por pabloe9k
...Esto es muuuuuy fácil de hacer en PHP con la función "Explode", pero no tengo idea de como se hace con Delphi 7...
|
La idea era mostrar que existe la función
ExtractStrings de Delphi equivalente a la función
Explode de PHP con la cual
se puede hacer Split de texto en función de diversos delimitadores, ciertamente hubiera sido suficiente hacer:
Código Delphi
[-]
procedure TForm1.Button2Click(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;
SL.Text := InputString;
for i := 0 to SL.Count - 1 do
ShowMessage(SL[i]);
SL.Free;
end;
Espero sea útil
Nelson.