String i Pointer

0

Potrzebuje pomocy.
Wyskakuje mi taki błąd : "Incompatible types: 'String' and 'Pointer'".
Ma ktoś jakieś rozwiązanie.

THX

0

no co ci tu pomagac ?
dalbys jakis kod gdzie ci to wywalilo itp. itd.
po prostu pomyliles typy :P ---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Przeczytaj delphi faq 2 odnośnie chyba zmiany tapety.--, tradycyjnie pozdrawiam - Numi.

0

Daj kodzik, bo pewnie coś ze wskaźnikiem skopałeś.

0

mOŻE PointerToStr albo coś takiego

0

if Wybor.Items.Item[0].SubItems[1] &lt&gt nil then
begin
.....
end else Exit;

Chodzi o ty :
ma sprawdzić czy w komponencie Wybor (ListView) jest jakiś wpis czy nie.
Jeżeli jest coś to zrób coś, w przeciwnym wypadku nierób nic.

0

if Wybor.Items.Item[0].SubItems[1] '' then
begin
.....
end else Exit;

a moze to pomoze ? :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Tak dzięki z jednym pomogło, ale teraz wywala błąd przy zamykaniu programu.

To wygląda tak :

begin
AssignFile(TF, 'Wybrani.txt');
Rewrite(TF); // stworz okno
if Wybor.Items.Item[0].SubItems[1] &lt&gt '' then
begin
try
For I := 0 to Wybor.Items.Count do
begin
Nick2 := Add(Wybor.Items.Item[i].SubItems[0], 20);
IP2 := Add(Wybor.Items.Item[i].SubItems[1], 15);
Imie2 := Add(Wybor.Items.Item[i].SubItems[2], 20);
Nazwisko2 := Add(Wybor.Items.Item[i].SubItems[3], 20);
Writeln(TF, Nick2 + IP2 + Imie2 + Nazwisko2);
end;
finally
CloseFile(TF);
end;
end else Exit;

Jest to w FormClose. Add - to jest jakaś tam funkcja.
Program ma po prostu sprawdzić czy w ListViiw jest coś. Jeżeli jest puste to ma nic nierobić jeżeli coś jest to ma to zapisać do pliku.
Teraz nie moge zamknąć programu musze przez CTRL+ALT+DEL

{glowa} {glowa} {glowa}

0

Błąd dalej wskazuje na :
if Wybor.Items.Item[0].SubItems[1] &lt&gt '' then

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0