Rozdzielanie stringa

0

Mam string, np. "costam 1234 6", ew. "costam#1234#6". I teraz jak wyciągnąć osobno 1234 oraz 6? Byłbym wdzięczny za szybką odpowiedź.---------------------------
Delphi 6

Pozdrówka

0

można rodzielić np według spacji ale to nie da ci chyba nic
bo chcesz konkretne miejsce wyczytać a możn ato zrobić np.
if edit1.text[1] = 1 then .....

[email protected]

0

Poczytaj
http://www.4programmers.net/f[...]x.php?action=show&id=5864
lub
http://www.4programmers.net/f[...]ction=show&id=5918-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------

0

Kombinowalem i wykombinowalem :)
procedure TForm1.Button1Click(Sender: TObject);
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 {hello}
Tomasz K.

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