[mozhunt]

Народ, есть строка 11043 11029 11029 11036

надо из нее сделать строку 11043 11029 11036

Как ?

[PashaXP]

procedure TForm1.Button1Click(Sender: TObject);
Var
str: String;
begin
str:='11043 11029 11029 11036';
DELETE(str,POS('11029',str),5);
Edit1.Text:=str;
end;

[PashaXP]

ИЛИ
procedure TForm1.Button1Click(Sender: TObject);
Var
str: String;
begin
str:='11043 11029 11029 11036';
DELETE(str,POS('11029',str),Length('11029'));
Edit1.Text:=str;
end;

[MegaPiha]

Сообщение от mozhunt

Народ, есть строка 11043 11029 11029 11036

надо из нее сделать строку 11043 11029 11036

Как ?

Речь идет именно об этой сроке или это её часть (как пример) и необходимо убрать все повторяющиеся числа?

[MegaPiha]

А вижу твою другую тему на эту тему.

[Pegasus]

Вот функция подобию Scanf() В С++.
Шустро работает, но может можно проще?

Код:

Function ScanFile(FileN : String; Line, Row : integer): String;
var
List : TStringList; Tstr : String; Rstr : array[1..100] of String; i, n : integer;
begin

n := 1;
List := TStringList.Create;
List.LoadFromFile(FileN);
Tstr := List.Strings[Line];

for i := 1 to Length(Tstr) do
begin
if copy(Uppercase(Tstr), i, 1) <> ' ' then
Rstr[n] := Rstr[n] + copy(Uppercase(Tstr), i, 1)
else
if copy(Uppercase(Tstr), i+1, 1) <> ' ' then
n := n + 1;
end;

result := Rstr[Row];
List.Destroy;
end;

///

Edit1.text := ScanFile(Путь к файлу, стока, помер переменной):

Admin: Еще раз напоминаю о правилах оформления кода, далее будут применяться санкции!

1 2 3 4 5 - это помер переменной.
"1000 2000 3000 4000 блабла"

Это так к слову!