Edit

← →
F@T@L_Err0r (2008-01-25 09:37) [0]

Здравствуйте ув. мастера.У меня такой вопрос: Есть Edit1 и в етот Edit введено доследовательно через пробел n - ное количество цифр или букв, как сохранить каждый символ отдельно в свою переменную???Желательно с примером.Заранее спасибо...

← →
Kolan © (2008-01-25 09:43) [1]

Используй дин. массив строк.

← →
Ega23 © (2008-01-25 09:45) [2]

var
s : string
begin
s := StringReplace(Edit1.Text, " ", frReplaceAll);
end;

Теперь в s все элементы.

← →
F@T@L_Err0r (2008-01-25 09:46) [3]

Да я так и делаю только в цикле почемуто получается не то что я хочу вот код:
const countofelements=10;
Procedure Prisvoenie;
var Data:array[0..countofelements] of string;
q:integer;
begin
for q:=0 to countofelements do
begin
data[q]:=copy(form1.edit1.text,pos(" ",form1.Edit1.Text),10);
form1.ListBox1.Items.Add(data[q]);
end;
end;

← →
Семеныч (2008-01-25 09:49) [4]

var S: string; Chars: array of char; i: integer; begin S := Edit1.Text; SetLength(Chars, Length(S) div 2 + 1); for i := 0 to High(Chars) do Chars[i] := S[2 * i + 1]; end;

← →
F@T@L_Err0r (2008-01-25 09:50) [5]

>Ega23 ©

Выдает ошибку типа incomppatible types string and TFindOption...
И потом как мне их патом разделить...нельзя ли реализовать ето с помощью массива...

← →
F@T@L_Err0r (2008-01-25 09:56) [6]

>Семеныч

Выдает только символ "-"и все...Я добавил в код строчку form1.ListBox1.Items.Add(s);

← →
oldman © (2008-01-25 10:00) [7]

s - строка
m - массив

for i=1 to length(s) step 2
m[i]=s[i];

← →
oldman © (2008-01-25 10:01) [8]

> oldman © (25.01.08 10:00) [7]

Это всего лишь идея, не надо копи-пасте
:)))

← →
F@T@L_Err0r (2008-01-25 10:04) [9]

Блин...но все же как же мне это реализовать уже три дня парюсь...казалось бы че может быть проще...а тут нет...

← →
Kolan © (2008-01-25 10:08) [10]

Или TStringList:

Strings := TStringList.Create; try Strings.Text := StringReplace(Edit1.Text, " ", "« ", frReplaceAll); // Strings[0]  первое число/символ finally Strings.Free; end;

Не прверял, но должно работать&#133

← →
F@T@L_Err0r (2008-01-25 10:12) [11]

>Kolan ©
опять выдает ошибку типа incomppatible types string and TFindOption...

← →
Семеныч (2008-01-25 10:15) [12]

> F@T@L_Err0r (25.01.08 09:56) [6]

Перечитайте свой вопрос и ответьте на мой: откуда мог взяться символ "-", если в Edit содержатся только цифры, буквы и пробелы?

> опять выдает ошибку типа incomppatible types string and
> TFindOption...

procedure TForm1.Button1Click(Sender: TObject); var Strings: TStrings; begin Strings := TStringList.Create; try Strings.CommaText := Edit1.Text; ShowMessage(Strings[0]); //— первое число/символ finally Strings.Free; end; end;

Работает...

← →
F@T@L_Err0r (2008-01-25 10:34) [14]

спасибо...работает...

Edit Найти похожие ветки