Как Из Большей Строки Копировать Строку До Символа (' , ').

[Polya]

Например 123,456,789
Мне нужно скопировать 123 до (' , ')

 

[Lomanu4]

На форуме есть функция парса ,с этой функцией и сможете сделать то что вам нужно

 

[Sascha]

Вот пример небольшой

Var
S: TStringList;
I: Integer;
Begin
S:=TStringList.Create;
S.LoadFromFile('C:\1.txt');
For I:=0 To Length(S.Strings[0]) Do
Begin
If (S.Text[I] = ' ') Or (S.Text[I] = ',') Or (S.Text[I] = '.') Then
Begin
Break;
End;
Edit1.Text:=Edit1.Text+S.Text[I];
End;
End;