Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Substring? wie=?


MKSlayer - Mi 25.06.08 08:25
Titel: Substring? wie=?
Also entweder bin ich zu blöt oder dat geht bei mir nicht könnt ihr mir helfen?


ip:=inhalt.SubString(9); // so ist ja sicherlich falsch


mkinzler - Mi 25.06.08 08:27

Schau dir mal Copy() an


MKSlayer - Mi 25.06.08 08:31

wo soll ich mir das denn anschauen,.. hab keine hilfe von Borland mit instaliert


GericasS - Mi 25.06.08 08:33

user profile iconMKSlayer hat folgendes geschrieben:
wo soll ich mir das denn anschauen,.. hab keine hilfe von Borland mit instaliert


Installier sie nach oder schau doch mal bei google vorbei !
Hat ganze 0,19sek gedauert http://www.delphibasics.co.uk/RTL.asp?Name=Copy


MKSlayer - Mi 25.06.08 08:38

danke dir für die hilfe,...

instalieren geht nicht keine admin rechte hier auf dem rechner


GericasS - Mi 25.06.08 08:42

user profile iconMKSlayer hat folgendes geschrieben:
danke dir für die hilfe,...

instalieren geht nicht keine admin rechte hier auf dem rechner


Achso okay, dann ist diese Seite sehr zu empfehlen http://www.delphibasics.co.uk


MKSlayer - Mi 25.06.08 08:54

so ich habe das jetzt mal ausprobiert aber das prog stürz mir immer ab wegen einer zugrifsverletzung in adresse 00000000

hier mal der code


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
procedure TForm1.EkImgBtn5Click(Sender: TObject);
var
    verg,I  : Integer;
    inhalt,ip,port,user,pass,Database,tabel,save : String;
  begin
    conf.LoadFromFile('conf.cfg');
    for I := 0 to conf.Count - 1 do begin
    inhalt:=conf.Strings[I];
    if AnsiPos('ip', inhalt) = 0 then begin
    ip:= Copy(inhalt, 4);
    Edit1.Text:=ip;
    end;

    if AnsiPos('port', inhalt) = 0 then begin
    port:= Copy(inhalt, 6);
    Edit1.Text:=port;
    end;
    end;
end;


oldmax - Mi 25.06.08 09:12

Hi
Du erwartest doch nicht etwa, das wir dieses lesen...
Wie wär es mal mit Delphi-Tags und Einrücken ?
Das man das auch immer wieder sagen muß.. das sind Grundlagen !
Gruß oldmax


MKSlayer - Mi 25.06.08 09:19

so ich habs geändern,. sorry,.. hatte ich in der hecktik vergessen


ZeitGeist87 - Mi 25.06.08 09:31

[Glaskugelmodus]


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
procedure TForm1.EkImgBtn5Click(Sender: TObject);
var verg,I  : Integer;
    inhalt,ip,port,user,pass,Database,tabel,save : String;
begin
 //Von welchem Typ ist Conf? Ich tipp auf TStringList
 //Also..bitte StringList erzeugen
 conf:= TStringList.create;
 conf.LoadFromFile('conf.cfg');
 for I := 0 to conf.Count - 1 do 
 begin
  inhalt:=conf.Strings[I];
  if AnsiPos('ip', inhalt) = 0 then 
  begin
   ip:= Copy(inhalt, 4);
   Edit1.Text:=ip;
  end;

  if AnsiPos('port', inhalt) = 0 then 
  begin
   port:= Copy(inhalt, 6);
   Edit1.Text:=port;
  end;
 end;
 //Liste freigaben
 Conf.Free;
end;
[/Glaskugelmodus]