Замена в Edit'e

[Oleg Romanchuk]

Всем добрый вечер)) нужна помощь: допусти в едит записывается значение:
Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=C:\Documents and Settings\ORV\Рабочий стол\Программа\Гл. База.mdb;Persist Security Info=false

вообщем надо сделать так, чтобы остался только пусть C:\Documents and Settings\ORV\Рабочий стол\Программа\Гл. База.mdb

очень нужна ваша помощь, программа для дипломной а сроки поджимают ))

[Neeter]

function GetPath(ConnectionString: string): string;
begin
 Delete(ConnectionString, 1, Pos('Data Source=', ConnectionString) + 11);
 Result := Copy(ConnectionString, 1, Pos(';Persist Security Info=') - 1);
end;

Писал на глаз, если есть погрешности просто скажите.

[Oleg Romanchuk]

Neeter

можно поподробнее плиз, что куда вставлять, и что эта за функция: GetPath

[Neeter]

Написал ее я, чтобы вам не мучатся, вставляйте в код формы где вы хотите получить путь к базе, вот пример использования:

Edit1.Text := GetPath(ADOConnection1.ConnectionString)

[Oleg Romanchuk]

Спасибо большое, только все равно не получается что-то(( вот так откопилировался без ошибок:

Delete(ConnectionString, 1, Pos('Data Source=', ConnectionString) + 11);
Result:=Copy(ConnectionString, 1, Pos(';Persist Security Info=',ConnectionString)-1);

Edit1.Text := GetPath(ADOConnection1.ConnectionSt ring)

а вот тут выдал ошибку: [Error] OptionUnit.pas(383): Incompatible types: 'HDC' and 'WideString'





что-то вроде на тип ругается

[Alter]

Если в edit просто путь до файла, может пригодится

Const  ConnectStr :String = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
..........................................
ADOConnection1.ConnectionString := Format(ConnectStr, [Edit1.Text]);
..........................................

[Oleg Romanchuk]

не работает (((

[Helion]

Если путь надо получить с Edit, то и работайте с его значением.

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

function GetPath(ConnectionString: string): string;
begin
 Delete(ConnectionString, 1, Pos('Data Source=', ConnectionString) + 11);
 Result := Copy(ConnectionString, 1, Pos(';Persist Security Info=') - 1);
end;

В форме с Edit'ом используйте:

var Path : string;
Path := GetPath(Edit1.Text);

[Oleg Romanchuk]

Столько способов и не один не могу приминить, везде ошибки:

Нужно скопировать только часть текста из реестра, т.е. путь, а не всю строку целиком...

Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=C:\Documents and Settings\ORV\Рабочий стол\Программа\Гл. База.mdb;Persist Security Info=false

Reg:=TRegistry.Create;
Reg.OpenKey('Software\Base\Connect' , true);

PathEdit.Text:=Reg.ReadString('Base P');

Reg.CloseKey;
Reg.Free;

Ладно не беда, если не получиться так все и оставлю (((

Всем большое спасибо за помощь ))))

[Neeter]

И где ошибка происходит? вообще вот так должно работать:

Reg:=TRegistry.Create;
Reg.OpenKey('Software\Base\Connect' , true);

PathEdit.Text:=GetPath(Reg.ReadString('Base P'));

Reg.CloseKey;
Reg.Free;