Значение в апострофах

[Utkin]

В общем задача в следующем: перед нами имеется строка, скажем S, в которой содержится некоторое значение. Как мне проверить оно заключено в апострофы или нет? То есть функция, типа если S='''бла-бла''' то TRUE, иначе не TRUE. Входящие значения S могут быть любыми (то есть и пустая строка и пару тысяч символов запросто).
Я предлагаю решение: проверить крайние элементы, являются ли они апострофами. Имеется ли более красивое и главное более быстрое решение? Скорость в данном случае приоритетней.

[Stilet]

Как по мне достаточно быстрым будет простой While до равно, потом до кавычки и следующей кавычки.

[Utkin]

Не кавычки, апострофы. Внутри строки также могут иметься апострофы (не только по краям). Строка может быть очень длинной (искать в цикле 1000 элементов все же накладно).

[Volt]

function Stroka(S:String):Boolean ;
var a,b,c:string;
begin
a:= copy(s, 1, 1);
b:= copy(s, length(s), length(s)-1);
if pos('"', a)>0 then
begin
if pos('"', b)>0 then Result:=True else Result:=False;
end
else
Result:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Stroka('"Строка"') then Form1.Close;
end;

[Utkin]

Благодарю, Volt. Примерно также я и сделал, меня интересует: можно ли быстрей? Моя программа пресыщена цикличными операциями со строками, каждый такт для меня имеет большое значение.

[SERG1980]

function Stroka(S:string):boolean;
begin
 result:=false;
 result:=(S[1]='"') and (S[Length(S)]='"');
end;

[Stilet]

Предлагаю так:

var s:string;k,i:integer;
begin
 s:='x="123+4+"5"+5"';
 for k:=1 to length(s) do if s[k]='"' then inc(i);
 if i mod 2=0 then ShowMessage('Правильно') else ShowMessage('неа');
end;

Учитываются все ковички

[Utkin]

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

function Stroka(S:string):boolean;
begin
 result:=false;
 result:=(S[1]='"') and (S[Length(S)]='"');
end;

А если S не содержит символов? Вы получите исключение.

Стилет речь идет об апострофах, но суть я уловил.
В общем это для парсера надо - он должен динамически определять что это за элемент - число, строка, массив, имя переменной и пр. Один из вариантов - это строка в апострофах (ну также как в паскале).

[SERG1980]

if S<>'' then result:=(S[1]='"') and (S[Length(S)]='"');

[Utkin]

Еще одна проблемка . Введите 1 апостроф и функция даст верный результат...