Stream

0

Jak z TStream (w moim przypadku taki: #0+#0+#0+'12345'+#0) wyciąć tylko te cyferki i wkleić do np. Memo?

0

Moze pomoze ci cos takiego:
var
Lancuch : string;
P : Integer;
begin
Lancuch := 'costam#1234#6';
P := Pos('#', Lancuch);
Delete(Lancuch, 1, P);
P := Pos('#', Lancuch);
while P &gt 0 do begin
Memo1.Lines.Add(Copy(Lancuch, 1, P - 1));
Delete(Lancuch, 1, P);
P := Pos('#', Lancuch);
end;
Memo1.Lines.Add(Lancuch);
end;--pozdrawiam PEDROS {hello}
Delphi6

0

Nie bo string nie widzi znaku #0 :( może da sie to inaczej zrobić??

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0