Какими способами в String можно узнать является ли первый символ пробелом?

[Des]

Собственно сабж Имеется несколько стринг, с различными данными, нужно найти пробел в первом и или втором символе и удалить его
Можно без удаления

[Mad_Cat]

Какими способами в String можно узнать является ли первый символ пробелом?

if s[1]=' ' then {да}
else {нет}

с удалением

while pos(' ',s)<=2 do begin 
if pos(' ', s)=0 then break;
delete(s,pos(' ',s),1);
end;

[Alex Cones]

While String[1] = '' Do Delete(S, 1,1);

- Удалит все пробелы в начале строки.

[Des]

Большое спасибо

[Des]

Delete(StringGrid1.Cells[StrToInt(Edit1.Text),I],1,1);

Последнюю 1 видит лишней Что я забыл?

[DeKot]

StrToInt(Edit1.Text),I

А это зачем?. Вы ведь работаете со строкой.

[Grag]

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

нужно найти пробел в первом и или втором символе и удалить его

А что, TrimLeft(S) уже не работает???

[Mad_Cat]

var s:string;
{....}
begin
{...}
s:=StringGrid1.Cells[StrToInt(Edit1.Text),I];
Delete(s,1,1);
{....}
end;

А что, TrimLeft(S) уже не работает???

а чем она поможет если s='f ghghg' например? пробел-второй символ то не грохнет

[Des]

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

А это зачем?. Вы ведь работаете со строкой.

Так мне же нужно указать с какой именно

[StrToInt(Edit1.Text),I]

[Des]

Может кому сгодится

...
var
Gs: String;
...
Gs:=StringGrid1.Cells[StrToInt(Edit1.Text),I];
    if (Gs <> '') and (Gs[1] = ' ') then begin //первое условие если строка не пустая
        Delete(Gs,1,1); 
        StringGrid1.Cells[StrToInt(Edit1.Text),i]:=Gs;//Запаковываем обратно:)
    end;