Jak z TStream (w moim przypadku taki: #0+#0+#0+'12345'+#0) wyciąć tylko te cyferki i wkleić do np. Memo?
0
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 > 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ć??
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.