Kan man få delphi til at skrive til..

Du kan f.eks tage en Memo og gøre den usynlig, og så selvfølgelig smide 3 edits på din form. På din button onclick kan du så skrive

Memo1.Clear;
Memo1.Lines.Add('$navn = ' + Edit1.Text);
Memo1.Lines.Add('$alder = ' + Edit2.Text);
Memo1.Lines.Add('$email = ' + Edit3.Text);
Memo1.Lines.SaveToFile('fil.php');








-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------

[Redigeret d. 14/11-04 13:54:45 af Jonas (Decko)]

Typisk gør man det at man i sin php fil i forvejen skriver variablerne med et %EnIdentifyer%, som f.eks. her:

Kode 

$navn = %NAVN%;
$alder = %ALDER%;
$email = %EMAIL%;

Man laver så noget kode der kan erstatte disse i hele filen.

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 14/11-04 14:33:17 af The-Freak]

Og hvordan gør man så det spørger han om

SkypeR That\\\\\\'s ME

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E

Nu kom jeg til at lave hele koden, så nu kan jeg vidst godt give den ud ... Den kan tilpasses til hvad hjertet skulle begave... Du kan gøre lige hvad du vil med den, men jeg vil gerne have en plads i about boxen på dit program hvis det har en ....

procedure ReplaceInFile(FN: String; Navn: String; Alder: Integer; Email: String);
  function ReplaceStr(Str, SearchStr, ReplaceStr: string): string;
  begin
    while Pos(SearchStr, Str) <> 0 do
    begin
      Insert(ReplaceStr, Str, Pos(SearchStr, Str));
      Delete(Str, Pos(SearchStr, Str), Length(SearchStr));
    end;
    Result := Str;
  end;
var
  S: TStringList;
  I: Integer;
begin
  if not FileExists(FN) then raise exception.Create('File ' + FN + ' does not exist!');
  S := TStringList.Create;
  S.LoadFromFile(FN);

  for I := 0 to S.Count - 1 do begin
    S.Strings[I] := ReplaceStr(S.Strings[I], '%NAVN%', Navn);
    S.Strings[I] := ReplaceStr(S.Strings[I], '%ALDER%', IntToStr(Alder));
    S.Strings[I] := ReplaceStr(S.Strings[I], '%EMAIL%', Email);
  end;

  if not DeleteFile(FN) then raise exception.Create('File ' + FN + ' could not be removed!');
  S.SaveToFile(FN);
  S.Destroy;
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Typisk gør man det at man i sin php fil i forvejen skriver variablerne med et %EnIdentifyer%, som f.eks. her:

$navn = %NAVN%;
$alder = %ALDER%;
$email = %EMAIL%;

Man laver så noget kode der kan erstatte disse i hele filen.

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 14/11-04 14:33:17 af The-Freak]

Typisk gør man det at man i sin php fil i forvejen skriver variablerne med et %EnIdentifyer%, som f.eks. her:

Kode 

$navn = %NAVN%;
$alder = %ALDER%;
$email = %EMAIL%;

Man laver så noget kode der kan erstatte disse i hele filen.

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 14/11-04 14:33:17 af The-Freak]

Og hvordan gør man så det spørger han om

SkypeR That\\\\\\'s ME

----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E

Har nu altså ikke tænkt mig at servere koden på et sølvfad bare sådan lige... Ser jeg ikke nogen grund til... Man lære meget mere ved at prøve sig frem. Fortalte ham bare princippet... Men jeg kan da godt prøve at strike noget basis kode sammen...

MH.

The-Freak

Livet er for kort til at kede sig.