Problemy z Delphi

[Wiatrak]

Więc tak, mam 2 problemy z Delphi.

 

1. Mam funkcje

 

   function funkcja1(arg1:pchar; arg2: double):double;
   ...

 

     function funkcja2(arg1:pchar):pchar;
     funkcja1('tekst' + arg1 + chr(13));

 

Jak kompiluję to mi wywala:

Incompatible types: 'String' and 'PAnsiChar'

 

 

2.Mam stringa 'abc[defg]hij' o nieznanych danych i długości, ale '[' i ']' tam na pewno są.

Jak wyciągnąć tylko ten tekst, który jest pomiędzy [ ] ?

[Pental Stary]

Funkcja chr() zwraca znak, a nie string. Nie, to nie jest to samo :P .

[Wiatrak]

Ale jak dam samo funkcja1('tekst' + chr(13)); to się kompiluje. Dziwne.

 

Czyli jak przekonwertować?

[Pental Stary]

Sry, w błąd cię wprowadziłem, string można z charem łączyć operatorem +.

 

Nie możesz parametru innej funkcji sobie wsadzić od tak w programie :o . Dziwnie kombinujesz muszę przyznać.

[Tymon]

PChar jest tylko wskaźnikiem, a nie stringiem. :/

 

PChar( 'tekst' + String( arg1 ) + chr( 13 ) )

[Wiatrak]

Dzięki, skompilowało się!!

 

A może zna ktoś odpowiedź na drugie pytanie?

W GMie robiłem to tak:

string_copy(zmienna,(string_pos("[",zmienna)+1),(string_pos("]",zmienna)-string_pos("[",zmienna)-1));

[Tymon]

var
        str : String;
        start : Integer;
begin
        str := 'abc[defg]hij';
        start := Pos( '[', str ) + 1;
        ShowMessage( Copy( str, start, Pos( ']', str ) - start ) );
end;

Na stringach.

 

EDIT

Tak lepiej.

[Wiatrak]

Wielkie dzięki. Działa!!!