Обработка текста

[GAGARIN-NEW]

Вобщем так : мне нужно реализовать простую обработку текста!
чтобы например текст из переменной типа Tstring например "10;5;Привет" (Безкавычек) разделялся на 3 переменные ! 1-вая типа integer (у меня 10) 2-я тоже integer (5) 3-я String(Привет).

Вот между ними какойнибудь знак разделитель... я например поставил ';' . Но чтобы процедура проверки и преобразования не нагружала комп т.к будет использоватся (если паможете канешо ) очень часто...


вот начало :
var
e,Msg:string;
MsgNumb,MsgCode:integer;
begin
e:='010;5;Привет';
...
...
...

В конце должно получится

Msg='Привет'
MsgCode='5'
MsgNumb='10'


У каво какие мысли ? напишите плс полностью

[Stilet]

Запросто: В цикле дозаписывай в i-й элемент массива очередной символ из строки пока не встретишь разделитель, тогда проанализишь записанное на то что это, число али неа. Ну и так до конца строки.

[GAGARIN-NEW]

Можно плс поподробнее. тоесть текст гатовый....плис

[Stilet]

Вот примерчик на раздумья:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var s:array of string;k,i:integer;ss:string;f:extended;
begin
i:=0;k:=1;
ss:=Edit1.Text; ListBox1.Items.Clear;
setlength(s,i+1);
//********** WHILE *********
while k<length(ss) do  begin
 if ss[k]=';' then begin
  inc(i);
  setlength(s,i+1);
  if TryStrToFloat(s[i-1],f) then begin
   ListBox1.Items.Add(s[i-1] + ' - число');
  end else
   ListBox1.Items.Add(s[i-1]+ ' - Строка'); inc(k);
 end;
 s[i]:=s[i]+ss[k];
 inc(k);
end;
//****** END WHILE *********  {}

end;

end.

[GAGARIN-NEW]

а можно написать функцию
function(text:string);
---
---
---
1переменная:=элемент1.текст
2переменная:=элемент2.текст
3переменная:=элемент3.текст

[Surgeon]

function findNword(separator,inputstr:string;wordn:integer):string;
// параметры функции: 
// separator - символ-разделитель слов (последовательные разделители считаются одинм)
// inputstr - строка для анализа
// wordn - номер искомого слова
// функция возвращает слово с указанным номером (нумерация слов с нуля "0" ) 
var
secstr:string;
findedword:string;
StartW,endW,wNum,znum,i,k:integer;
begin
i:=0;
wnum:=0;
znum:=0;
startw:=0;
endw:=0;
inputstr:=trim(inputstr);
secstr:=inputstr+separator;
if wordn=0 then startw:=0
else
begin
while (i<length(secstr)-1)and(wnum<>wordn) do
begin
i:=i+1;
if (secstr[i+1]<>separator)and(secstr[i]=separator) then
begin
startw:=i;
wnum:=wnum+1;
end;
end;
end;
znum:=0;
k:=startw;
repeat
k:=k+1;
until (k>length(secstr)-1)or((secstr[k]<>separator)and(secstr[k+1]=separator));
endw:=k;
result:=copy(secstr,startw+1,endw-startw);
end;
 
function WordNumber(input,separator:String):integer;
//параметры функции:
//input - строка для анализа
// separator - символ разделяющий "слова"
// функция возвращает число слов в анализируемой строке
var
buf:string;
n,i:integer;
begin
input:=trim(input);
if input='' then result:=0
else
begin
n:=0;
while FindNWord(separator,input,n)=FindNWord(separator,input+' ~ ',n) do n:=n+1;
Result:=n; // отсчет слов начинается с 0!!!
end;
end;

функции использовать вместе т.к. вторая использует первую.
Дальше получив разбивку на слова начинаешь анализ, для чисел есть функция вроде TryStrToInt, вернет true если строку можно преобразовать в integer. А раз можно значит и преобразуй.
Хотя зависит от того что замышляешь.

[Илюха]

Скинь свой исходник на форум! То что у тебя получается

[GAGARIN-NEW]

Илюха ты мне ???